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Solo Dysan garantisce che 
tutta la superficie della 
diskette sia realmente 
100% “error free”: un test 
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e lo spazio tra le tracce 
assicurando prestazioni 
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Salute 

Purtroppo il medico di famiglia non esiste più (ma se ce n’è ancora 
qualcuno, si affretti a usare questo programmai): vaccinazioni da un 
lato, malattie dall'altro, analisi, terapie e soprattutto costi a non finire. 
Come ricordare tutto, registrare e listare le spese mediche di tutti i 
familiari? E al momento di pagare le tasse, poi... 

Voce 

Ora non gli manca più la parola: con questa routine in linguaggio 
macchina l’Apple può finalmente pronunciare tutto quello che volete. 
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Oroscopo 

Dedicato soprattutto a chi agli oroscopi non crede, forse questo 
programma può riuscire a far cambiare loro idea... Scientificamente 
fondato, permette la creazione di una carta del cielo natale che nulla 
invidia ai grafici tracciati dai professionisti. 

Blackout 

Stabilizzatori e gruppi di continuità: sono i preziosi alleati di chi lavora 
con il personal computer e non può assolutamente permettere che un 
black out o un traballìo nella rete principale gli mandi a rotoli ore e ore di 
importante lavoro. Tutto per conoscerli, qualche consiglio per 
acquistarli. 

One-liners 

Prosegue la pubblicazione dei migliori one-liners; alcuni di questi, 
finalmente, ci sono pervenuti direttamente dai lettori... e il concorso 
continua! Tra gli altri, un programma che disegna l'alba, uno che attiva il 
tasto delete, uno che disegna i confini dell’Italia, uno che da un decimale 
risale alla frazione... 

Basic Writer 

Il software si evolve continuamente, ma anziché gettare via i programmi 
obsoleti è meglio cercare il modo di rinnovarli continuamente... Apple 
Writer // trova oggi un alleato super potente, che permette di saltare 
dall'ambiente elaborazione testo all'ambiente Basic. Se poi Util Writer e 
Pro Writer sono della partita... 

Variabili 

Volete caricare in memoria un programma in Applesoft al di sopra di 
questo o quel codice macchina? O addirittura in cima a un codice ormai 
servito al suo scopo in un programma che sta girando? Oppure... 

Macnews 

È quasi un catalogo completo, questa carrellata con tutte le novità 
software per Macintosh, fresche di SMAU: programmi gestionali, di 
grafica, didattici, specifici per professioni... 

Grafica 

Che cosa sono le figure a blocco? Perché è importante farne la 
conoscenza? Per chi possiede l'Apple //c o il Ile con scheda 80 colonne 
continua l'entusiasmante viaggio nel mondo dell'altissima definizione. 

Appliscuola 

Eccoci alla terza puntata sul progetto Seraphim. In questo numero un 
software didattico che crea la simulazione al computer di un problema di 
equilibrio. 



Il medico in famiglia, pag. 18 



Altissima risoluzione, pag. 75 

Vt '•> 


Le rubriche 

6 Applichi 
10 Applicosa 
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Un lettore di Bologna mi scrive: "Ho letto sui quotidiani che in America 
è In atto una crisi nel settore dei personal computer, dovuta a un notevole j 
calo delle vendite In un mercato ormai saturo come quello americano. Quello 
che più mi preoccupa è che anche la gloriosa Apple è coinvolta In questa 
crisi. In sostanza, quale sarà secondo voi II destino della Mela? Leggendo 
queste notizie mi è venuto il dubbio di avere buttato parte dei miei risparmi 
in un sistema il cui futuro è paragonabile a un vicolo cieco!" 

E' probabilmente un quesito che si sono posti in molti. Per questa 
ragione, e senza mezzi termini, abbiamo intervistato Sergio Nanni, nuovo 
amministratore delegato della Apple Italia. L'intervista è a pag. 6, nella 
rubrica Applichi. 

Ma vorrei aggiungere alcune considerazioni personali che mi fanno 
ragionevolmente credere In un futuro roseo. 

Un po' stupiti, colti di sorpresa da uno strumento talmente Innovativo e 
inatteso, per anni 1 giornali della grande stampa si sono divertiti ad 
alimentarne il mito: con il computer si governerà la casa intera, con 11 
computer si farà questo e quest'altro. Il boom del personal computer è stato 
alimentato anche da queste voci un po' irrazionali: molti l'han comprato 
prima ancora di capire cosa fosse, a cosa veramente potesse servire. E' 
stata questa componente di moda futile a venire a mancare a un certo punto. 

La gente non è stupida: ha cominciato a capire che il computer è utilissimo, 
ma a chi sa cosa farsene. Da qui una flessione di vendite, una riflessione del 
mercato. Molte previsioni di vendita delle case produttrici si sono rivelate 
troppo ottimistiche. Ma da qui, anche, un altro fenomeno irrazionale, di 
colore. Gli stessi giornali che avevano pompato II boom si sono messi a 
pompare lo sboom: adesso era quest'ultimo a far notizia. 

Ma quale sboom, quale crisi? Un aggiustamento, certo. Provvedimenti 
per adeguarsi a un mercato che si rivela diverso e più maturo rispetto a 
quello ipotizzato in precedenza, certo. La Apple ha ammesso qualche 
problema, ed è corsa ai ripari. Ma attenzione, anche la Fiat qualche anno fa 
aveva alcuni problemi: li ha ammessi, è corsa ai ripari, e guardate adesso 
come risplende... 

Non va inoltre dimenticato l'entusiasmo dell'utente Apple. Un 
entusiasmo che deriva sicuramente dalla soddisfazione deU'utilizzo di un 
Apple. Ma, soprattutto, è un entusiasmo che genera nuovi utenti. Infatti, sia 
dall'indagine condotta da Applicando, sia da altre indagini simili condotte 
sul mercato americano, risulta che ogni utente Apple, nell'arco di un anno, 
influenza mediamente quattro nuovi acquisti di sistemi Apple. 

Ma noi di Applicando crediamo di avere un motivo di serena fiducia in 
più. Il futuro della Apple interessa moltissimo i nostri lettori, ma interessa 
anche Applicando. La connessione è evidente: se il mercato di Apple cresce, 
cresce anche la rivista dedicata ai computer Apple. Ebbene: in questi mesi di 
perplessità, di notizie come quelle che hanno seminato dubbi nel lettore di 
Bologna che ci scrive, sono cresciute le vendite e sono cresciuti gli 
abbonamenti di Applicando E si è trattato di una crescita non da poco. Noi 
possiamo offrire una sola interpretazione: il mercato sta maturando 
davvero, è appunto più razionale, meno emotivo. Ora il personal computer si 
compra non per moda o per ghiribizzo, ma dopo essersi documentati, averne 
capito le possibilità. Un compito, quello di informare, documentare, aiutare, 
che Applicando è felice di svolgere. 
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Se il cliente 
è sapiente 

Dal mese di settembre le 
redini della Apple computer 
Spa sono in mani nuove: 
Sergio Nanni, cinquant’anni 
e una laurea in legge, ex pre¬ 
sidente deiribema, ex am¬ 
ministratore delegato della 
Castelmac (IMI) e direttore 
generale di divisione alla 
Magneti Marelli e al 
G.F.T., ne è infatti il nuovo 
amministratore delegato. 

Alto e sorridente, ha pre¬ 
senziato allo stand della Ap¬ 
ple durante l’ultimo SMAU 
con eleganza ed evidente 
soddisfazione. Eppure è di 
pochi mesi fa la notizia di 
una crisi dell’Apple statuni¬ 
tense, con la chiusura di al¬ 
cuni stabilimenti, 1.200 li- 
cenzamenti, un buco di 17 
milioni di dollari nella ge¬ 
stione del terzo trimestre. Si 
può ugualmente parlare di 
soddisfazione? 

"Certo: oggi siamo già in 
grado di valutare positiva- 
mente quel momento di in¬ 
certezza, dal quale è scaturi¬ 
ta un’operazione di ristrut¬ 
turazione molto salutare; la 
riunificazione delle divisioni 
Macintosh e Apple // si è ri¬ 
velata molto funzionale, e il 
suo costo (40 milioni di dol¬ 
lari) è già stato riassorbito; il 
terzo trimestre, infatti, ne 
ha sopportato tutto il peso, 
mentre si prevede che il 
quarto chiuderà addirittura 
in utile. Per avere il polso 
dello stato di salute della 
Apple, inoltre, basta consi¬ 
derare qual è attualmente la 
sua liquidità: oltre 250 mi¬ 
lioni di dollari. Una cifra che 
si commenta da sé." 

Subito prima dell’estate, 
però, si avvertiva una certa 
inquietudine anche sul mer¬ 
cato italiano, e non solo co¬ 
me conseguenza passiva del¬ 
le nubi d’oltreoceano... 

"Per quanto riguarda l’I¬ 
talia, si era notata nel perio¬ 
do da maggio a luglio una 
certa saturazione di uno dei 
mercati che avevano da 
sempre caratterizzato lo svi¬ 
luppo delle vendite dei per¬ 
sonal computer, cioè quello 


dell’"effimero": quello di chi 
comperava il personal per 
moda o per curiosità, e non 
per risolvere dei problemi 
reali. Quello, per intender¬ 
ci, di chi prima lo acquista¬ 
va, e poi si chiedeva cosa po¬ 
tesse farne. Una fascia di 
consumatori, questa, di cui 
in primavera è stata fatta 
giustizia, ma senza rimpian¬ 
ti: un mercato più pulito e 
più professionale non è un 
mercato in crisi." 

Chi oggi acquista un per¬ 
sonal computer, insomma, è 
spinto a farlo dalla necessità 
di risolvere i problemi che il 
suo lavoro gli propone quo¬ 
tidianamente. 

"E questo mercato è rima¬ 
sto molto importante, e ha 
continuato a svilupparsi: 
proprio a esso si rivolge oggi 
la Apple, anche e soprattut¬ 
to attraverso i nuovi Apple 
Center, che si differenziano 
dai tradizionali computer 
shop perché offrono al clien¬ 
te soluzioni complete, che 


gli si adattano perfettamen¬ 
te. La situazione prima era 
molto più confusa: un mer¬ 
cato che cresceva a ritmo 
vorticoso, nel quale erano 
mescolati utenti veramente 
interessati a concrete solu¬ 
zioni e utenti che del compu¬ 
ter non sapevano bene cosa 
fare, però lo volevano; di 
conseguenza anche il riven¬ 
ditore poteva assumere o 
meno un atteggiamento pro¬ 
fessionale. Adesso abbiamo 
selezionato i computer shop 
che da sempre hanno lavo¬ 
rato con atteggiamento pro¬ 
fessionale, e li abbiamo 
chiamati Apple Center, da 
quelli che hanno invece dato 
al cliente un computer e 
qualche pacchetto di softwa¬ 
re dicendogli fondamental¬ 
mente: arrangiati. Con gli 
Apple Center stiamo ope¬ 
rando in termini di proposte 
di soluzione." 

Anche a livello aziendale, 
però, si parla da tempo di 
crisi del personal computer: 


utilizzarlo al posto del vec¬ 
chio terminale non basta; ri¬ 
mane il problema di definire 
per lui una nuova identità, 
di individuare finalmente 
chi all’interno di una azien¬ 
da ne ha bisogno e cosa deve 
farne. 

"A livello aziendale c’è il 
fenomeno della sostituzione 
dei vecchi terminali ammini¬ 
strativi, che avviene a volte 
con dei personal computer; 
questo però non è un feno¬ 
meno di innovazione, si trat¬ 
ta semplicemente della so¬ 
stituzione di un terminale 
"stupido" con un terminale 
"intelligente". Innovativo è 
invece il comparire all’inter¬ 
no delle aziende di figure 
professionali che si rivolgo¬ 
no al personal computer per 
la soluzione di problemi pri¬ 
ma affrontati con altri stru¬ 
menti. Noi ci avviciniamo 
alle aziende anche con inte¬ 
ressanti proposte commer¬ 
ciali: per esempio i personal 
computer Apple potranno 
usufruire dal primo gennaio 
1986 del nuovo servizio di 
assistenza Honeywell, per il 
quale si stanno svolgendo 
adesso i corsi di addestra¬ 
mento. Le aziende che già 
usano i grandi macchinari 
Honeywell sanno che ora 
possono utilizzare un solo 
contratto di manutenzione 
anche per i loro personal, 
con risparmi notevoli di 
tempo e denaro, e con un’u¬ 
nica interfaccia amministra¬ 
tiva. Apple, comunque, è 
profondamente presente nel 
mercato aziendale, e con gli 
sviluppi che sono stati pre¬ 
sentati allo SMAU tende a 
inserirvisi con tempre mag¬ 
gior forza: collegamenti con 
diversi tipi di calcolatori e 
sviluppi di software per nuo¬ 
ve applicazioni operative 
(Jazz, per esempio) sono al¬ 
cune proposte che alle 
aziende interessano molto." 

E veniamo dunque, final¬ 
mente, a parlare un po’ di 
SMAU; tantissimi i visitato¬ 
ri allo stand Apple, notevole 
il successo; come mai? 

"Lo SMAU è stato orga¬ 
nizzato per applicazioni: 
c’era il settore per i dentisti, 
il settore per la scuola, il set- 
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tore per i commercialisti, il 
settore per gli editori (dove 
abbiamo presentato tre ap¬ 
plicazioni di stampa con la 
nuova laser e addirittura un 
collegamento con la linoty¬ 
pe), eccetera. Il visitatore 
era invitato ad avvicinarsi 
allo stand Apple non per 
ammirare i 512 K del Macin¬ 
tosh, ma per trovare la solu¬ 
zione ai suoi problemi ge¬ 
stionali. E se non aveva pro¬ 
blemi gestionali da risolve¬ 
re, nessuno lo tediava con 
questo argomento... osser¬ 
vando solo quello che gli in¬ 
teressava scopriva che il 
computer Apple consente di 
svolgere meglio il proprio 
lavoro; questa è la nuova fi¬ 
losofia con cui ci avvicinia¬ 
mo al mercato, e che il mer¬ 
cato dà già segno di voler 
premiare." 

Un’ultima, piccola e forse 
un po’ pettegola, curiosità: 
Steve Jobs se ne va trasci¬ 
nandosi dietro le ire della 
Apple, che pure è stato lui a 
creare; decine di miliardi in 
ballo e un’azione penale in 


Steve Jobs. La sua decisione 
di fondare una nuova società 
ha scatenato un mare 
di polemiche. 



corso perché ha deciso di 
fondare una nuova società, 
in barba agli impicci legali. 
Che cosa si può dire di lui? 

"Steve Jobs aveva lasciato 
gli incarichi operativi da me¬ 
tà giugno, per cui influenze 
sulla vita della Apple in con¬ 
seguenza di quanto è succes¬ 
so dopo di allora sicuramen¬ 
te non ce ne saranno. Il fatto 
che Steve Jobs abbia deciso 
di dare le dimissioni e di in¬ 
traprendere una nuova atti¬ 
vità non cambia sicuramen¬ 
te nulla nella vita della Ap¬ 
ple, e poiché comunque è in 
corso un’azione legale, ogni 
commento sugli aspetti più 
delicati della vicenda sareb¬ 
be, oltreché poco corretto, 
anche non coerente con il 
fatto stesso che tale proce¬ 
dura è in corso." 

Gualtiero 
per studiare 

Ogni mese Gualtiero 
Marchesi, il Divino della 
Nouvelle Cuisine, ammette¬ 
rà ai segreti dei suoi fornelli 
un’eletta schiera di appren¬ 
disti cucinieri: 12 parteci¬ 
panti (ci si può iscrivere an¬ 
che per una sola lezione) 
trascorreranno una delizio¬ 
sa mattina assistendo ai pre¬ 
parativi di un pasto comple¬ 
to che poi, naturalmente, 
consumeranno beati. 

Gualtiero Marchesi in¬ 
tratterrà i suoi "ospiti" inse¬ 
gnando loro l’arte preziosa 
del giusto accostamento dei 
vini. Il pomeriggio si trasci¬ 
nerà pigramente tra doman¬ 
de e risposte, scambi di in¬ 
formazioni, consigli e sugge¬ 
rimenti. 

Poi, a casa, con il pro¬ 
gramma Computer cuisine 
che Applicando ha realizza¬ 
to con i menù di Gualtiero 
Marchesi, gli studenti po¬ 
tranno ripassare la lezione, 
per la gioia dei loro familia¬ 
ri. 

Il corso si svolgerà nel ri¬ 
storante di Gualtiero Mar¬ 
chesi in via Bonvesin de la 
Riva 9 a Milano. Per preno¬ 
tazioni (190 mila lire a gior¬ 
nata) telefonare a questo 
numero: 02 741246. 


Mac fa 
Economia 

Si è tenuto in questi giorni 
a Trento (11 — 12 ottobre) il 
secondo convegno annuale 
dell’Aissec, associazione re¬ 
lativamente nuova, ma già 
accreditata, nel panorama 
culturale italiano. 

Fondata a Firenze nell’a¬ 
prile del 1984, è l’associazio¬ 
ne che promuove, senza sco¬ 
po di lucro, la circolazione 
delle idee e l’attività di stu¬ 
dio e di ricerca nel campo 
dei sistemi economici com¬ 
parati, ed è composta attual¬ 
mente da 190 studiosi italia¬ 
ni, tra i quali Caffè, Lom- 
bardini, Nuti, Salvati; la 
presiede il professor Vitto¬ 
rio Valli dell’Università di 
Torino. 

Ma veniamo al convegno 
di Trento. Da Cambridge e 
da Budapest sono giunti i 
professori Eatwell, Kuczin- 
ski e Szamuely, che hanno 
tenuto le relazioni introdut¬ 


tive, volte principalmente 
ad analizzare i problemi 
connessi alle economie del 
terzo mondo e dell’est euro¬ 
peo; anche gli interventi de¬ 
gli altri studiosi si sono inte¬ 
ressati soprattutto alle eco¬ 
nomie dei paesi in via di svi¬ 
luppo e alle situazioni più 
critiche del continente. E 
stata complessivamente de¬ 
nunciata, inoltre, la grossa 
carenza, in Italia, di uno stu¬ 
dio sistematico delle ten¬ 
denze di medio e lungo pe¬ 
riodo e dei mutamenti strut¬ 
turali dei principali sistemi 
economici esteri. 

Macintosh, intanto, lavo¬ 
rava a pieno ritmo: tutte le 
relazioni, le comunicazioni, 
le presentazioni, i bollettini, 
gli interventi, venivano affi¬ 
dati alla sua capace memo¬ 
ria per una prima elabora¬ 
zione. Gli atti del convev- 
gno, dopo un’operazione di 
riordinamento e ripulitura 
fatta a video, saranno ben 
pesto pronti per la pubblica¬ 
zione. 
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Teo Rusconi ha appena 
sfatato la leggenda 
secondo la quale i floppy disc 
sono tutti uguali 


Difatti sembrano tutti uguali finché non 
si osserva con attenzione il jacket. Qui 
termina l’uguaglianza. 

La maggior parte delle società costruttrici 
sigillano i dischi un punto qui, un punto là, 
lasciando parte dei lembi non sigillati. 

Prima o poi ai lembi accadono cose 
naturalissime: si gonfiano, si curvano, si 
raggrinziscono... in poche parole si aprono. 

Con penne, matite, unghie persino un 
ragazzino di quattro anni come Teo può 
infilarsi in quegli spazi aperti. 

Naturalmente è un danno enorme perchè 
se si inserisce qualcosa di molle e slabbrato 
nel disc-drive quest’ultimo può incepparsi; 
si può rovinare la testina e si possono 
perdere i dati. 



Questo può accadere con gli abituali 
sistemi di chiusura ma non con i dischetti 
Memorex che usa un procedimento 
esclusivo chiamato 
“Solid-Seam Bonding”. 


Con questo sistema ogni singolo 
m illi metro quadrato dei lembi di tutti i dischi 
Memorex viene sigillato ermeticamente, 
rendendoli più rigidi e più resistenti. 



DISCHETTI MEMOREX 

con lembi completamente 
saldati su tutta ^ 

la superficie. 


È un sistema che consente al floppy disc 
di sostenere ogni assalto, che impedisce alla 
testina di rovinarsi e ai dati di andare perduti. 

Il che sta a dimostrare che un floppy disc 
Memorex non è uguale a tutti gli altri: è 
migliore. E il sistema di saldatura è solo un 
esempio della cura infinita con cui viene 
prodotto ogni floppy disc Memorex; sia 
esso da 8”, da 5 1/4” o il nuovo 3 1/2”. 

Questa estrema accuratezza dà la garanzia 
che ogni disco Memorex è al 100% perfetto. 

La prossima volta che acquistate un 
floppy disc - o qualche centinaio, 

- ricordate: non tutti i 
dischetti sono uguali... 

Memorex vi mette al 
riparo da qualsiasi 
inconveniente. 
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Un ottimo 
debutto 

Come sa chi è venuto allo 
SMAU e, facendosi largo 
tra i molti visitatori sempre 
accalcati, ha potuto vedere 
in azione le ultime novità 
proposte dalla Apple, di co¬ 
se da dire ce ne sono parec¬ 
chie. (Ma purtroppo nulla 
da dire, invece, a proposito 
di prezzi: è ancora troppo 
presto per conoscerli.) 

Innanzitutto la nuova 
stampante ImageWriter II, 
che oltre a incontrare l’entu¬ 
siasmo del pubblico ha vinto 
il premio SMAU 1985 per 
l’ottinlo livello delle sue pre¬ 
stazioni: ne parliamo diffu¬ 
samente più oltre. 

Per Macintosh lo SMAU 
ha preparato una gradita 
sorpresa: una memoria di 
massa da 20 megabyte con 
tecnologia Winchester (si 
sussurra che costi 3,5 milio¬ 
ni). L’hard disk, predispo¬ 
sto per una perfetta integra¬ 
zione con la macchina, si 
collega all’uscita per l’unità 


Apple//c con II nuovo 
monltora colori e Macintosh 
con l’Hard Disk. 


disco aggiuntiva e trova 
un’ottima collocazione pro¬ 
prio sotto il computer. Il vo¬ 
lume di archiviazione e su¬ 
periore di 50 volte a quello 
di un singolo disco, con una 


velocità di ricerca e di lettu¬ 
ra tre volte più elevata; una 
porta collocata sul retro del 
disco consente il collega¬ 
mento con una seconda uni¬ 
tà da 20 Mb o con l’unità 


esterna da 3,5". 

Sempre a proposito di 
memoria, una novità anche 
per il //e, che diventa così 
sempre più grande: un’e¬ 
spansione ram che parte da 
256 Kb e può raggiungere 1 
Mb di memoria centrale con 
l’aggiunta di tre banchi sup¬ 
plementari. 

Apple //e e Apple Ile, 
inoltre, possono contare da 
oggi sull’attesissimo moni¬ 
tor a colori ad alta definizio¬ 
ne; i due modelli differisco¬ 
no solamente per il design 
esterno e per il sistema di 
appoggio, e presentano in¬ 
vece le medesime prestazio¬ 
ni: uscita di tipo PAL diret¬ 
tamente collegabile all’usci¬ 
ta video di Apple Ut o NTSC 
per Apple Ile, 13 pollici con 
possibilità di visualizzazione 
anche monocromatica su 40 
o 80 colonne, risoluzione 
560 x 196. 

La famiglia Apple //, infi¬ 
ne, importa da Macintosh il 
suo stile operativo, grazie a 
Mouse Desk, un nuovo si¬ 
stema basato sull’uso del 
mouse e dei menù sequen¬ 
ziali. 

Ha vinto 
Macintosh 

Quando Macintosh è ap¬ 
parso sulla scena del merca¬ 
to mondiale c’è stato chi ha 
tentato di risolvere la pro¬ 
pria mancanza di fantasia ri¬ 
calcando apertamente i suoi 
modi di funzionamento. È 
stato questo il caso dei com¬ 
puter IBM e compatibili, di 
impostazione classicissima, 
per i quali la Digital Re¬ 
search ha dato il via a un’o¬ 
perazione di ringiovanimen¬ 
to a spese di Macintosh, ap¬ 
punto. Come? Con i pac¬ 
chetti applicativi denomina¬ 
ti Gem che usavano proprio 
quel tipo di videata, che sug¬ 
gerivano proprio quel tipo 
di rapporto tra schermo e 
utente. La Apple, che ha 
prontamente denunciato la 
produttrice del software pla¬ 
giarne in nome dei propri di¬ 
ritti di copyright, ha siglato 
un accordo che prevede il ri- 












tiro dal mercato della ver¬ 
sione del programma attual¬ 
mente distribuita nonché un 
risarcimento danni e l’impe¬ 
gno allo sviluppo di pro¬ 
grammi applicativi su pro¬ 
dotti Apple o in collabora¬ 
zione con Apple. With com- 
pliments. 

Applicare 
costa meno 

Su tre fronti, fondamen¬ 
tali, la Apple annuncia un 
significativo ridimensiona¬ 
mento di prezzo: Apple Ile, 
Macintosh in entrambe le 
versioni e ImageWriter da 
oggi costano meno. Il conti¬ 
nuo progresso tecnologico 
permette infatti sempre 
maggiori risparmi sui costi 
di produzione, che si riper¬ 
cuotono poi felicemente sui 
listini. 

Ecco i nuovi prezzi e, tra 
parentesi, quelli vecchi. 

Apple Ile: 1.900.350 

(2.399.350) ; Macintosh 128 
K: 4.299.350 (4.499.350); 
Macintosh 512 K: 5.299.350 

(5.999.350) ; Imagewriter: 
999.000 (1.150.000). E spe¬ 
riamo che si continui così! 

Senza svolazzi 

Un unico pacchetto appli¬ 
cativo con tante funzioni, fa¬ 
cile da usare, molto veloce, 
privo di fronzoli superflui e 
davvero utile. Con questo 
biglietto da visita si presenta 
Harmony, 250 mila lire Iva 
esclusa, un potente filer pro¬ 
dotto da HL software. 

Innanzitutto è possibile 
creare fino a tre pagine, sfo- 
gliabili avanti e indietro, con 
chiave di accesso segreta, se 
desiderata. Il numero dei 
campi è illimitato e ogni di¬ 
sco può ospitare fino a 512 
schede, ordinabili alfabeti¬ 
camente e ricercabili con 




Le realizzazioni dello Studiograph. 


chiavi multiple (fino a otto), 
ognuna con 4.800 caratteri. 

La stampa è personalizza¬ 
bile e l’aggiornamento dei 
record numerici è automati¬ 
co. Sempre presente (richia¬ 
mabile con un tasto) è la cal¬ 
colatrice, ed è possibile 
stampare il contenuto dello 
schermo in qualsiasi istante. 
Tre i tipi di grafici che Har¬ 
mony è in grado di realizza¬ 
re: a linee, a barre e a torta, 
con un massimo di 12 voci 
per grafico. La stampa 
(HI —RES) è possibile su 
due tipi di stampante: Image 
Writer ed Epson. 

Con Harmony, infine, è 
possibile digitare un testo in 
cui vengono inseriti i para¬ 
metri da ricercare in archi¬ 
vio: una volta definite le 
chiavi tutto avverrà automa¬ 
ticamente secondo i canoni 
di un vero e proprio mail 
merge. 

Mac d’Oltremare 

È stato Macintosh a per¬ 
mettere allo Studiograph di 


Napoli la realizzazione della 
locandina, del biglietto invi¬ 
to, delle tessere e degli ade¬ 
sivi necessari per il Salone 
Audio Video 1985 curato 
dall’Ente autonomo mostra 
d’oltremare di Napoli. 

L’obiettivo della ricerca 
grafica era quello di conferi¬ 
re alla rassegna un nuovo 
look, evidenziando il salone 
con un impatto grafico rife¬ 
rito al mondo dell’HI—FI e 
del Video. I vari elementi 
scelti (compact disk, loud- 
speaker, registratori, lettore 
C.D. eccetera) sono stati 
passati al computer con 
Thunder Scan. Anche tutte 
le operazioni di "taglia e in¬ 
colla" sono state eseguite 
con il Macintosh. 

La composizione genera¬ 
ta infine dalla stampante è 
stata ingrandita e resa più 
sofisticata con la tecnica ae- 
rografa e con ulteriori colo¬ 
razioni: l’effetto ottico che si 
voleva creare, infatti, era di 
rifrazione, come se l’illu¬ 
strazione apparisse attraver¬ 
so lo spessore di uno scher¬ 
mo. 


Che mal 
di schiena! 

Verbatim, la nota produt¬ 
trice californiana di dischi, 
cassette e accessori, ha dato 
il via a una simpatica inizia¬ 
tiva volta a migliorare le 
condizioni di lavoro, spesso 
faticose e stressanti, degli 
operatori addetti ai video- 
terminali. Senza doversi al¬ 
lontanare dalla tastiera, in¬ 
fatti, anzi senza nemmeno 
alzarsi dalla sedia, è possibi¬ 
le eseguire alcuni facili, pic¬ 
coli, simpatici esercizi rilas¬ 
santi e tonificanti. 

Guerra al mal di schiena, 
dunque, alle dita anchilosa- 
te, agli occhi stanchi. L’opu¬ 
scolo della Verbatim, con 
decine di suggerimenti gin¬ 
nici illustrati, è disponibile 
nei negozi che vendono i 
suoi prodotti. Eccone alcu¬ 
ni: per rilassare la schiena, 
rimanere seduti piegando il 
tronco tra le ginocchia, ab¬ 
bassando il più possibile col¬ 
lo, spalle e braccia; ritorna¬ 
re alla posizione orginale, 
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raddrizzarsi bene e rilassar¬ 
si. Per eliminare la tensione 
accumulata nelle mani, ri¬ 
volgere le palme verso il 
basso e allargare le dita 
quanto più è possibile; rima¬ 
nere in questa posizione 
contando fino a cinque; ri¬ 
petere più volte. Per allevia¬ 
re la fatica delle spalle, por¬ 
tare la mano destra dietro le 
spalle e la sinistra dietro la 
schiena e allacciare le dita 
delle mani; ripetere l’eserci¬ 
zio al contrario. 

Honeywell per 
Apple 

Interessa, e molto, la 
grande utenza, quella com¬ 
posta da aziende medie e 
grandi, da enti e istituzioni, 
il nuovo accordo tra Apple e 
Honeywell, già operativo 
negli USA, per offrire un 
supporto di assistenza tecni¬ 
ca alle fasce di mercato che 
necessitano di una grande 
organizzazione nazionale, 
come quella che la Honey¬ 
well appunto garantisce. 

La HIS (Honeywell Infor¬ 
mation System) Italia met¬ 
terà a disposizione degli 
utenti di personal computer 
Apple la propria rete di assi¬ 
stenza tecnica in Italia; le 
aziende che utilizzano i 
grandi sistemi Honeywell 
potranno così appoggiarsi ai 
contratti di assistenza e ma¬ 
nutenzione già in corso an¬ 
che per i personal di loro 
proprietà. 

L’accordo tra Apple e HI- 
SI prevede la fornitura di 
parti di ricambio e l’adde¬ 
stramento dei tecnici HISI 
da parte di Apple, realizzato 
in tempi tali da consentire 
che l’accordo sia pienamen¬ 
te operante già dal primo 
gennaio 1986. 

Una decisione di questo 
tipo sottolinea il "nuovo cor¬ 
so" avviato dalla Apple 
Computer: finita l’epoca del 
personal computer acquista¬ 
to per moda o per curiosità, 
il mercato appare abitato so¬ 
prattutto da utenti ad alta 
professionalità, attenti ai 
concreti vantaggi che l’uso 


di un personal computer 
può procurare. 

Printer buffer 

Per Apple //e e //plus è ar¬ 
rivato un nuovo buffer di 
stampa, interamente gestito 
da microprocessore, che 
permette una trasmissione 
dati tra computer e periferi¬ 
che con magazzino di me¬ 
moria di 64 Kb. 

Il buffer GPA 727 si cari¬ 
ca in memoria i dati prove¬ 
nienti dal computer alla 
massima velocità da questo 
consentita, iniziando subito 
a trasmetterli, in completa 
autonomia, alla stampante: 
l’impegno del computer in 
fase di stampa risulta così 


Disknews 

Il mercato dei floppy disk, 
tirando le somme delle ven¬ 
dite, è un po’ ballerino: chi 
prevedeva il raddoppio ha 
dovuto rimangiarsi le sue 
convinzioni, ma anche chi 
prometteva catastrofi. Dalla 
tabella sul mercato mondia¬ 
le dei floppy disk appare evi¬ 
dente che la crescita prevista 
fino al 1988 è molto vivace, 
con uno scostamento però 
tra i dati di volume e quelli 
di valore che evidenzia il 
problema dei prezzi nel 
settore. 

Alcuni dati che interessa¬ 
no da vicino i consumatori 
sono quelli relativi ai diversi 
successi incontrati dai vari 
formati; il più vecchio, quel¬ 
lo da 8", è destinato a una 
crescita più contenuta nei 
prossimi anni e addirittura 
al declino, a iniziare dal 
1987, mentre il più giovane, 
il microdisco, va verso uno 
sviluppo molto elevato, al 
quale però non sembra ac¬ 
compagnarsi un degno ridi¬ 
mensionamento dei costi. 

Un aumento notevolissi¬ 
mo (190 milioni di unità in 
più), il massimo previsto 
nell’intero settore, è desti¬ 
nato comunque alla "taglia 
media": grazie al gran nume- 


notevolmente diminuito, 
con evidenti vantaggi di fun¬ 
zionalità del sistema. 

Ecco le principali caratte¬ 
ristiche tecniche del buffer. 
Alimentazione: 5V della 
stampante o con apposito 
DC power; input data: con¬ 
nettore standard a pannello; 
output data: cavo m 1,5 con 
connettore finale; protocol¬ 
lo: seriale o parallelo; capa¬ 
cità: 8—64 Kb netti; dimen¬ 
sioni: mm 85 x 150 x 25; fun¬ 
zione PAUSE: comando 
hardware; funzione RE¬ 
SET: pulsante sull’apparec¬ 
chio; prezzo: 243.000 per 
16K ram, 286.000 per 32 e 
328.000 per 64 (Iva esclusa). 
Prodotto dalla Delin, Via 
Cosentino 22, Firenze. Te¬ 
lefono 055/4379586. 


ro di drive da 5,25 pollici, 
sarà questo il formato desti¬ 
nato al successo maggiore. 


Mercato mondiale 
dei floppy disk 


Anno 

Valore 

(milioni 

USA) 

Volume 

(milioni) 

1982 

=270 

=378 

1983 

=430 

=538 

1984 

=600 

=600 

1985 

=820 

=738 

1986 

1100 

=880 

1987 

1500 

1050 

1988 

2000 

1200 


Tutte le ditte produttrici, 
comunque, sono impegnate 
a garantire la propria pre¬ 
senza sul mercato ai livelli 
qualitativi più alti, con inno¬ 
vazioni tecnologiche, o este¬ 
tiche, o funzionali... o con 
tutte insieme. 

C’è addirittura chi inizia 
ora la sua produzione di 
floppy disk, per inserirsi in 
un mercato non ancora satu¬ 
ro, e pieno di promesse; è il 
caso di Pelikan, leader nel 
settore cancelleria, che pre¬ 
senta una gamma di dischet¬ 
ti da 5,5 pollici, disponibili 
in confezione Twin da due 



Per alimentare 


Gli Easifeed 230 e 130, di¬ 
stribuiti dalla Datamatic, si 
propongono di risolvere si¬ 
tuazioni molto differenzia¬ 
te; il modello 230 è un ali¬ 
mentatore automatico di fo¬ 
gli singoli, abbinabile prati¬ 
camente a ogni stampante 
esistente sul mercato; l’ap¬ 
plicazione è molto semplice 


pezzi o in scatola da dieci, a 
faccia doppia o singola, con 
densità doppia o quadrupla 
(96 tracce per pollice). I di¬ 
schetti Pelikan promettono 
un’affidabilità del 100%: to¬ 
talmente errorfree anche in 
condizioni estreme. 

Nuova gamma di prodotti 
(si chiama Scotch) anche 
dalla 3M, rivolta in partico- 
lar modo agli utenti di per¬ 
sonal computer domestici. 
Per il formato 5,25" i disket¬ 
te disponibili sono quattro 
(due da 48 tpi e due da 96), 
in confezioni da due, cin¬ 
que, e dieci pezzi; per le uni¬ 
tà di comando a diskette 
5,25" la gamma Scotch com¬ 
prende anche un corredo 
per la pulizia di testine. So¬ 
no disponibili anche i di¬ 
schetti da 3,5" (SSSD, 135 
tpi), in confezione da dieci, 
che godono, come tutti i 
prodotti EDP Scotch, di ga¬ 
ranzia illimitata. 

La Memorex, dal canto 
suo, ha messo l’abito nuovo 
alla sua gamma di dischi e 
diskette; un nuovo design, 
giovane e dinamico, dise¬ 
gnato dalla Landor Associa¬ 
tes, caratterizza ora tutti i 
suoi prodotti. La Memorex, 
che per prima ha introdotto 
nel mercato i supporti a dop¬ 
pia faccia e 1 Mb non for- 
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e veloce, grazie a un piccolo 
telaio di adattamento dispo¬ 
nibile in svariate misure per 
ogni tipo di macchina. 

Anche nel caso di sostitu¬ 
zione della stampante con 
un altro modello, quindi, 
non si creano problemi di 
adattamento; Easifeed 230, 
in pratica, trasforma ogni 
stampante in un mailing 
center. 

Il modello 130 è previsto 
invece per stampanti prive 
di trascinamento a trattore, 
come sono, per esempio, le 
macchine per scrivere utiliz¬ 
zate come stampanti, e con¬ 
sente l’alimentazione dei 
moduli continui. Anche in 
questo caso l’unità è costi¬ 
tuita da un telaio di adatta¬ 
mento, in varie misure, sul 


quale si innestano due car- 
rarmati regolabili in lar¬ 
ghezza, con cingolatura al¬ 
tamente professionale. Il 
trascinamento dei moduli ri¬ 
sulta così altamente affida¬ 
bile. 

Anche a proposito di na¬ 
stri inchiostranti la Datama- 
tic presenta una nuova pro¬ 
posta: Rheinband è una li¬ 
nea di prodotti dal costo 
contenuto compatibili con 
tutte le stampanti più diffu¬ 
se. Il supporto, l’inchiostra¬ 
zione e la cassetta di conte¬ 
nimento sono sottoposti a 
controlli di qualità appro¬ 
fonditi durante la fabbrica¬ 
zione e a collaudi a campio¬ 
ne sul prodotto finito, per 
garantire risultati di impiego 
ineccepibili. 



L’alimentatore distribuito dalla Datamatic. 



metric della BASF si pre¬ 
sentano rinnovati nella con¬ 
fezione e nella qualità: car¬ 
tone plastificato e nuovo de¬ 
sign più custodia antistatica 
da un lato, accresciuta sicu¬ 
rezza (100% errorfree) dal¬ 
l’altro. Anche la vita media 
dei dischetti è aumentata: 70 
milioni di passaggi per trac¬ 
cia, con resistenza a tempe¬ 
rature superiori ai 70°. L’as¬ 
sortimento (500 diversi tipi 
di dischetti) basta a soddi¬ 
sfare anche i più esigenti e 
originali consumatori. 

I nuovi floppy "heavy du- 
ty" della Fuji Film, distribui¬ 
ti in Italia dalla Cbs, assicu¬ 
rano oltre 20 milioni di pas¬ 
saggi grazie al nuovo binder 
RD con struttura tridimen¬ 


sionale flessibile. Tutte le 
tracce sono 100% errorfree 
e ne è garantita la stabilità 
nelle caratteristiche di inpu¬ 
t/output. Il valore di modu¬ 
lazione è bassissimo: 3% cir¬ 
ca. Molto sicura e resistente 
anche la confezione. 

Infine, l’innovazione tec¬ 
nologica ha baciato in fronte 
anche i dischi della HP Data 
Memories, 100% errorfree. 
I supporti magnetici sono te¬ 
stati oltre i limiti di resisten¬ 
za dettati dagli standard 
qualitativi, cosicché il pro¬ 
dotto risulta assolutamene 
affidabile anche nelle situa¬ 
zioni di lavoro più critiche. 
Ogni dischetto è certificato 
al 100% secondo le norme 
principali. 


Scotch 


talmente garantita, anche 
quando il sistema è oltre i 
limiti di tolleranza. La dura¬ 
ta di vita dei dischetti High 
Focus è inoltre elevatissima. 

Tecnologia d’avanguar¬ 
dia ed estrema semplicità di 
utilizzazione caratterizzano 
i dischi della serie 5,25" fir¬ 
mata Panasonic. L’uso di 
uno speciale materiale ma¬ 
gnetico a particelle sopraffi¬ 
ne ottimizza i processi di re¬ 
gistrazione e lettura e con¬ 
temporaneamente prolunga 
la vita del dischetto poiché 
risulta diminuito l’attrito tra 
la testina del drive e la su¬ 
perficie del disco magneti¬ 
co. L’involucro infine, gra¬ 
zie all’uso di una garza inter¬ 
na con elevate capacità pu¬ 
lenti, è molto affidabile e ga¬ 
rantisce un’ottimale conser¬ 
vazione del dischetto. 

I nuovi FlexyDisk Quali- 


mattato, ha inoltre sensibil¬ 
mente ampliato la propria 
gamma, in modo da soddi¬ 
sfare tutti gli utenti. 

Si chiama Strato magneti¬ 
co a isotopia rinforzata il 
processo di produzione dei 
dischetti High Focus della 
RPS; grazie a esso l’orienta¬ 
mento delle particelle del 
supporto non influenza più 
la qualità della registrazio¬ 
ne, che risulta in tutte le sue 
fasi perfetta. La sicurezza di 
utilizzo è in questo modo to- 
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Per quanto riguarda i 
prezzi, va detto che stanno 
subendo proprio ora alcuni 
ritocchi, fortunatamente in 
discesa, e non è quindi pos¬ 
sibile essere precisi; circa 
600 mila lire per il modello 
230 e circa 250 per il 130, 
comunque; Iva esclusa. 

ImageWriter // 

In occasione del salone 
SMAU ’85, la Apple com¬ 
puter ha presentato la nuova 
stampante ImageWriter //, 
che nelle intenzioni dei tec¬ 
nici dovrebbe pian piano so¬ 
stituire la ImageWriter I. La 
nuova periferica, premiata 
per il miglior design indu¬ 
striale del 1985, si presenta 
come il naturale migliora¬ 
mento e perfezionamento 
della ImageWriter I, della 
quale mantiene oltre al no¬ 
me anche gran parte delle 
caratteristiche di base; la 
nuova stampante risulta 
quindi compatibile con tutti 
i computer Apple: Mac, //e, 
Europlus e Ile. Il potenzia¬ 
mento del modello prece¬ 
dente è avvenuto sostanzial¬ 
mente in quattro direzioni: 
maggiore velocità, maggio¬ 
re qualità di stampa, capaci¬ 
tà di utilizzare i colori e pos¬ 
sibilità di collegare alcuni in¬ 
teressanti accessori. 

L’ImageWriter // possie¬ 
de vari livelli di qualità di 
stampa, a ognuno dei quali è 
associata una particolare ve¬ 
locità di output: 

1. Letter Quality. Con que¬ 
sto modo di stampa è possi¬ 
bile ottenere una qualità 
molto simile a quella di una 


stampante a margherita, a 
una velocità di circa 45 ca¬ 
ratteri al secondo. Da utiliz¬ 
zare, per esempio, per co¬ 
municazioni formali, pre¬ 
sentazioni eccetera. 

2. Standard. Con questa op¬ 
zione si ottiene una stampa 
con caratteri abbastanza 
densi, ad una velocità di 180 
CPS, cioè già superiore a 


quella dell’ImageWriter I. 

3. Bozza. In questo modo si 
può disporre di una notevo¬ 
le velocità, 250 CPS, con 
una densità di carattere di¬ 
screta, sufficiente per tutti 
gli stampati di prova, dove 
l’aspetto qualitativo può es¬ 
sere sacrificato a vantaggio 
di una superiore rapidità. 

Inoltre, rispetto al model¬ 
lo precedente, ImageWriter 
// consente di utilizzare di¬ 
rettamente apici e pedici, i 
caratteri del mouse e i carat¬ 
teri a mezza altezza. 

Altra novità assoluta è la 
possibilità di utilizzare fino a 
6 colori contemporanea¬ 
mente, oltre al nero, inse¬ 
rendo il nastro con 4 colori 
di base. Con programmi che 


Due esempi di stampa testo e 
tre realizzazioni a colori delia 
nuova ImageWriter//. 


Letter quality printers produce fully formed characters like 
typewriters do—a quality that is desirable tor business letters 
and reports- Letter quality printers work by positioning 
characters molded on thè tips of a circulating wheel or 
thimble After a character is positioned, a small hammer 
pushes it against a ribbon, making an impression on paper 

Letter quality printers produce fully forraed characters 
like typewriters do—a quality that is desirable for 
business letters and reports. Letter quality printers work 
by positioning characters molded on thè tips of a 
circulating wheel or thimble. After a character is 
positioned, a small hammer pushes it against a ribbon, 
making an impression on paper. 


sfruttano il colore è possibi¬ 
le, per esempio, disegnare 
grafici ad alta risoluzione, 
stampare documenti, oppu¬ 
re inserire del testo in nero 
su un grafico a colori. Sele¬ 
zionare i colori via software 
è molto semplice, basta an¬ 
teporre al testo, o al grafico 
che si intende stampare, il 
carattere di controllo ESC K 
seguito da un numero da 0 a 
6, a ognuno dei quali è asso¬ 
ciato un colore. 

Particolare attenzione va 
fatta ai tre accessori disponi¬ 
bili per rimageWriter // che 
consentono di aumentare 
notevolmente le capacità di 
questa periferica: un carica¬ 
tore di fogli singoli, un buf¬ 
fer di 32K e l’opzione Ap- 
pleTalk. 

Il caricatore di fogli singo¬ 
li si dimostra particolarmen¬ 
te utile se si devono effettua¬ 
re grandi lavori di stampa, 
per esempio su carta intesta¬ 
ta o comunque su fogli sin¬ 
goli, poiché consente di cari¬ 
care fino a 100 fogli in una 
sola volta, provvedendo au¬ 
tomaticamente ad alimenta¬ 
re la stampante. 

Con il buffer di 32K è pos¬ 
sibile espandere la memoria 
della stampante, con il note¬ 
vole vantaggio di poter tra¬ 
sferire dalla memoria del 
calcolatore fino a 32000 ca¬ 
ratteri in una sola volta, vale 
a dire quasi 18 cartelle, il che 
consente di continuare a uti¬ 
lizzare il calcolatore mentre 
la stampante sta lavorando. 

Installando la scheda Ap- 
pleTalk, ogni stampante 
può gestire fino a 31 compu¬ 
ter collegati in rete. Occorre 
però precisare che l'impiego 
del buffer e dell’opzione 
AppleTalk sono alternativi, 
cioè quando si utilizza il buf¬ 
fer non è possibile lavorare 
in rete e viceversa. 
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LO STESSO LAVORO PUOI 

PRESENTARLO 


BENE O 


Milano, 17 Loglio 1905 


DA Mario Bianchi (Direttore Vendite) 
A Gianni Rossi (Direttore Generale) 


l andamento delle vendite nel corso di quest'anno nello stato del 
Colorado per quanto riguarda il prodotto A ha subito un calo rispetto 
all'andamento delle vendite dei prodotti B, C, 0 ed E Infatti ne sono stati 
venduti soltanto 1200 pezzi, nonostante le previsioni di vendita all'inizio 
dell'anno fossero tutt'altro che negative 

Purtroppo stiamo assistendo ad una crisi del settore che si riuscirà' a 
risolvere solo con azioni di politica economica che esulano dalla nostra 
area di intervento infatti, la popolazione di Denver e in calo e cosi anche 
i consumi alimentari ne hanno risentito 

Nonostante comunque l'andamento del mercato sia poco favorevole, il 
bilancio complessivo è da giudicarsi positivamente Con sacrifici ed 
un'attenta gestione operativa, abbiamo ridotto il nostro intervento nei 
segmenti meno redditizi, aumentando gli sforzi di vendita del prodotto D 
che cosi risulta quello che maggiormente ha contruibulto all'utile 
aziendale 

Sperando di poter riportare risultati più brillanti anche dalle vendite, 
non appena ripartirà il mercato, invio cordiali saluti 

Mario Bianchi 



Ogni giorno vengono stilati migliaia di 
rapporti aziendali. La maggior parte viene 
sottoposta all'approvazione, alcuni vengono 
letti, pochi discussi, pochissimi vengono 
ricordati. Tutti gli strumenti di cui hai bisogno 
per ottenere business report indimenticabili, li 
puoi trovare su un solo dischetto: Ensemble. 
Ensemble riunisce il trattamento testi, la 
gestione dati, l'impostazione e la creazione 
di report, il calcolo e la grafica in un solo 
programma molto potente e produttivo. Il 
miglior pregio di Ensemble è la sua facilità. 
Studiato pensando a te e al tuo computer 
preferito, il Macintosh anche con solo 128K, 
Ensemble sfrutta tutti i vantaggi del 
Macintosh User Interface ed è compatibile 
con MacWrite e MacPaint. Ma questo non è 
il solo modo in cui Ensemble ti aiuta a 
migliorare. Puoi utilizzare Ensemble anche 
per creare Databases, effettuare analisi 
decisionali, fare mailing e altro ancora. 

Fatti ricordare con Ensemble. Fissa un 
appuntamento oggi stesso con il tuo software 
dealer oppure telefona, senza alcun impegno, 
a Italware a questo numero: 02-21623606. 




Pezzi 

Fatturalo 

Sconti 

Ricaui 

Prouuigio 

Coati Com 

Spedizion 

Rie. NETT 

Costo Uni 

Margine 

Utile 
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Ensemble 

Tutte le funzioni utili, correlate 



SOLUZIONI IN PUGNO 

ITALWARE SOCIETÀ ITALIANA SOFTWARE PALAZZO BORROMINI MILANO 2-20090 SEGRATE 

































































il Database veramente 
patente per Hpple // 


} 


otente: Superbase ti permette di 
lavorare contemporaneamente con 
15 files diversi, contenenti un numero 
illimitato di schede (la limitazione è 
dovuta solo alle disponibilità di spazio 
su dischetto). 

A sua volta ogni scheda potrà 
contenere fino a 127 campi 
di lunghezza massima 255 caratteri 
(con limitazione di 1000 caratteri 
per scheda). 



fi 


rogrammabile: con Superbase e 
possibile creare programmi che 
richiamano in diversa sequenza 
differenti files, e che creano nuovi 
documenti con i dati acquisiti 
dalle varie schede presenti 
nel database. E' possibile eseguire 
operazioni aritmetiche sui dati 
numerici presenti nelle schede e 
creare programmi di fatturazione, 
per esempio, con richiamo automatico 
dei dati del cliente e dei prodotti, e con 
esecuzione automatica dei calcoli. 


il Database dalle 4 


r ratico: Superbase è potente 
ma non difficile da usare. 

Uiene fornito completo di manuale 
e di cassetta audio di 
autoapprendimento in italiano 
per imparare a utilizzarlo 
direttamente sul tuo nipple II. 



rovaio: nella pagina a lato 
pubblichiamo l'elenco dei rivenditori 
presso I quali potrai trovare 
e provare il Superbase. 



assoli 

per 

fìUTOflPPPENDlAfNTO 






























PIEMONTE 

Consul Computer Via delle Rose 2 - Biella VC 

All Computer Corso Garibaldi 106 - Borgomanero NO 
Aldebaran Via Vittorio Emanuele 39 - Ciriè T0 

Thema Informatica Distribuita Via Statuto 10 - Cuneo 
Dimensione Personal Via Bertola 22e - Torino 
Tecnosystem Computer Corso Francia 12 - Torino 

Telino Computers Via Madama Cristina 31 c - Torino 

LIGURIA 

Micro-Pro Via Matteotti 50/52 - Arenzano GE 

LOMBARDIA 

B.C.S. Via Leopardi 16 - Erba CO 

Bit Shop Via G. Quarena 1 20 - Gavardo BS 

Cesi Corso Garibaldi 62 - Legnano MI 

Communications Engineering Piazza Firenze 4 - Milano 
Deltron Viale Gran Sasso 50 - Milano 

Information Technology Via Bossi 7 ang Broletto - Mi 
Logicai Station 3001 Piazza S M Beltrade 6 - Milano 
Macan Via Broletto 39 - Milano 

Irpe Via del Carantani 1 - Varese 

TRE VENEZIE Computing Program Via Piovesana 32 - Conegliano TV 
Elcom Corso Italia 149 - Gorizia 

Cartoleria La Goliardica Via Vili Febbraio 6 - Padova 
E.D.P. Sistemi Via Borromeo 16 - Padova 

PS Elettronica Via Tavagnacco 89/91 - Udine 

Armu Via Teatro Filarmonico 3 - Verona 

EMILIA 

Sercom Via Berengario da Carpi 9b - Bologna 

Infomod Via Giardini 464a - Modena 

Informatica System Via Statale 13a - Scandiano 

TOSCANA 

Soluzioni EDP Corso dei Tintori 39r - Firenze 

CDE Viale Adua 350 - Pistoia 

Computer Shop - Via Donizzetti 72 - Prato FI 


TM 



a chiedere 
sempre dì più dal 
tuo computer, 
SUPBRJBHSB 
è il database 
che fa per te. 


MARCHE 

Rinascita Informatica Via Trento e Trieste 17 - Ascoii P 
E.M.J. Via F Conti 4 - jesi AN 

Sisteda Via Velino 5 " Torrette di Ancona 

LAZIO 

First Success Via A. Diaz 14 - Latina 

Essemmeci Via Cintia 70 - Rieti 

E.D.P. Market Via E. Fermi 116/118 - Roma 

Siprel Via Pompeo Magno 94 - Roma 

Alfa Computer Via Palmanova 12c - Viterbo 

MOLISE 

Informatica Molisana Via B. Buozzi 12 - Campobasso 

CAMPANIA 

La Barbera Carlo Via Toledo 320 - Napoli 

PUGLIE 

Ciesse Via Re David 176d - Bari 

S.I.C. Vaile S. Giovanni Bosco 109 - Brindisi 

SICILIA 

C.E.E. Via Industriale 116 - Messina 

Libreria Bonanzinga Via dei Mille 110 - Messina 


SVIZZERA IT. Bassani Trading Via G. Motta 3 - Balerna TI 



□ Sì, desidero acquistare il programma Superbase a lire 380.000 


+Iva. Scelgo la seguente formula di pagamento: 

□ Accludo assegno non trasferibile di lire 448.800 (380.000 + 
Iva) intestato a Editronica srl 

□ Accludo ricevuta di versamento su conto corrente postale n. 
19740208 intestato a Editronica srl, di lire 448.800 
(380.000+Iva) 

Nome e Cognome.. 


Indirizzo.Cap 

Città.Prov 


Ritagliare e spedire in busta chiusa a: Editronica srl. 
Corso Monforte 39, 20122 Milano. 














































Col passar del tempo è assai facile confondere la 
varicella di un figlio con il morbillo dell’altro, dimenticare 
se sono stati vaccinati, scordare qual era quella 
meravigliosa terapia che vorremmo ripetere... Non esiste 
purtroppo più il vecchio medico di famiglia, bonario e 
saggio, che ricorda tutto di tutti. C’è però APPLIMEDIC, 
che non sa fare diagnosi, ma ha in compenso una 
memoria imbattibile... soprattutto in fatto di conti! 


DOS 3.3 

«ini 

ProOOS 

«ni; 

APPLE .//e 

«un 

APPLE //c -tllll 


Metti un medico 
in famiglia 


P rovate a chiedere a vostra madre 
se avete avuto la varicella: vi dirà 
che sì, ma forse no. forse era vostra 
sorella, degli orecchioni si ricorda be¬ 
nissimo, ma sulla varicella non ci giu¬ 
rerebbe... Provate a tirar fuori tutti i 
cartellini e tesserini relativi alle vacci¬ 
nazioni dei bambini: dieci a uno che 
qualcuno è andato perso, e non sapre¬ 
te mai la verità sui richiami dell'antite¬ 
tanica. Provate a ricordarvi quali era¬ 
no quelle ottime pillole che in due ore 
vi hanno guarito da una tremenda ce¬ 
falea l’anno scorso: quasi impossibile, 
vero? 

La maggior parte delle persone fa 
affidamento sul medico di famiglia per 
avere queste informazioni, ma accade 
spesso che all’assistenza medica prov¬ 
vedano diversi specialisti, e può darsi 
che le vaccinazioni vengano fatte a cu¬ 
ra dell’autorità scolastica. Appartiene 
ormai al passato la figura del bonario 
dottore che provvedeva alla completa 
assistenza sanitaria di tutti i compo- 



La videata di presentazione 


nenti della famiglia. 

Certo che, se di questa razza bene¬ 
detta purtroppo in via di estinzione 
esiste ancora qualche esemplare, AP- 
PLIMEDIC fa proprio per lui: nessu¬ 
no meglio di un medico di famiglia, 
infatti, può coglierne i vantaggi; una 
serie di file, famiglia per famiglia, con 
tutti i dati, le anamnesi, le terapie per i 
vari membri... 

APPLIMEDIC è un programma in¬ 
teso a tener nota, su base annuale, 
delle informazioni riguardanti l'assi¬ 
stenza sanitaria ricevuta dai vari mem¬ 
bri della famiglia e le medicine che 
sono state loro prescritte, e delle rela¬ 
tive spese. Elenca le spese su base per¬ 
sonale, e riferisce su una sola persona, 
oppure collettivamente sull’intera fa¬ 
miglia. 

A parte l’ovvio vantaggio della pos¬ 
sibilità di avere i dati completi delle 
spese sanitarie quando si deve fare la 
denuncia dei redditi, APPLIMEDIC 
provvede una documentazione impor¬ 
tante per la famiglia. Lo si può usare 
per stampare un elenco delle medicine 
prescritte a una persona della fami¬ 
glia, da portare allo studio del dottore. 
La lista può essere molto importante 
per il medico che prescrive un’ulterio¬ 
re cura, e che non disponendo di quel¬ 
le informazioni potrebbe inconsape¬ 
volmente prescrivere medicamenti tali 
da interagire negativamente con altri 
che il paziente sta già prendendo. (Il 
problema può essere particolarmente 
serio nelle persone anziane, che spes¬ 
so prendono medicine in sovrabbon¬ 
danza,) Inoltre l’elenco permetterà al 


farmacista di controllare le potenziali 
interazioni tra medicina e medicina. 

Un altro importante impiego del 
programma è l’accurata registrazione 
delle informazioni su vaccinazioni e 
inoculazioni. Chi ha bambini sa quan¬ 
to arduo sia tener traccia delle malat¬ 
tie di ognuno di loro e delle relative 
cure. APPLIMEDIC non smarrirà né 
metterà mai al posto sbagliato queste 
informazioni di importanza vitale. 


Come usarlo 


APPLIMEDIC è interamente pilo¬ 
tato da menù ed è quanto mai facile da 
usare. Le scelte vengono fatte median¬ 
te le frecce, spostando una riga mobile 
inversa che scorre sulle opzioni del 
menù. Si fa la scelta definitiva pre¬ 
mendo il tasto <RETURN>. (Questa 
routine del menù, completa di alcuni 
dei nomi di variabile, proviene dall’u¬ 
tility AUTOSCHERMO, pubblicata 
sul n. 15 di Applicando.) Si tratta di un 
autentico programma a due dita: la 
sola digitazione occorrente nel corso 
del programma è quella relativa all’in¬ 
troduzione dei dati e all’eliminazione 
dei file. 

Le sezioni che seguono spiegano i 
vari moduli e opzioni di APPLIME- 
DIC e servono come istruzione per il 
suo impiego. Quando eseguirete per la 
prima volta APPLIMEDIC comparirà 
la pagina d’intestazione e riceverete 
l’invito PREMI UN TASTO QUA¬ 
LUNQUE PER COMINCIARE. Lo 
schermo si pulirà e comparirà un altro 
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messaggio: INTRODUCI L’ANNO 
CHE INTERESSA. A questo punto 
introdurrete l'anno in corso, 85. Qual¬ 
siasi carattere non valido sarà respinto 
con un bip, e apparirà di nuovo la ri¬ 
chiesta. Il disco girerà per un po', alla 
ricerca di un file corrispondente all'an¬ 
no scelto. Se non riesce a trovare un 
tale file genera automaticamente il file 
HEADER.85. Quando questa opera¬ 
zione è completata verrà visualizzato il 
menù principale. 


La creazione dei file 
dei pazienti 

Poiché si tratta della prima volta sa¬ 
rete invitati a introdurre qualche dato. 
La scelta logica sul menù è INTRO¬ 
DURRE NUOVI DATI. Il cursore si 
trova già su questa opzione, e quindi 
basta premere il tasto <RETURN> 
come suggerito nel prompt alla base 
dello schermo. Adesso apparirà sullo 


schermo la pagina di IN PUT DEI DA¬ 
TI, pronta per l'introduzione del NO¬ 
ME DEL PAZIENTE. Battete il no¬ 
me GIOVANNI e premete <RE- 
TURN>. Delusione: il programma fa 
tornare al menù principale, con il cur¬ 
sore sulla riga CREARE NUOVO FI¬ 
LE PAZIENTE, facendo così sapere 
che si deve creare un file per ciascun 


KMHMi 
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paziente prima di introdurre i dati. 

Premete di nuovo <RETURN> 
per introdurre la funzione CREARE: 
adesso potete inserire GIOVANNI, 
quando viene chiesto un nome. Il di¬ 
schetto gira un momento per scrivere 
il file. Battete poi FILES per accertar¬ 
vi che Giovanni sia davvero sul di¬ 
schetto e nel computer come paziente. 
Quindi inserite GIOVANNA. Per il 
momento basteranno due nomi su cui 
lavorare, e quindi premete <RE- 
TURN> per tornare al menù princi¬ 
pale. Nota: poiché il nome introdotto 
è usato come nome di file deve conte¬ 
nere solo lettere e punti per mantene¬ 
re la compatibilità con il ProDOS. 


hhhhhi 

L’introduzione dei dati 

Il cursore è su INTRODURRE 
NUOVI DATI, e quindi premete 
<RETURN> per andare di nuovo a 
quella routine, e poi nuovamente il 
nome GIOVANNI. Questa volta il di¬ 
schetto gira e fa avanzare alla voce 
della DATA. Inserite due cifre per il 
giorno e poi due cifre per il mese, sen¬ 
za introdurre caratteri di delimitazio¬ 
ne come la barra (/) o la lineetta (—): 
penserà il computer ad aggiungere le 
barre. 

Adesso inserite ROSSI alla voce 
DR/CLINICA. Per DIAGNOSI inse¬ 
rite influenza, e digitate una cifra in 


lire che sembri adatta per l’ONORA- 
RIO. Il Dr. Rossi ha deciso che la 
vostra influenza non è affatto grave e 
vi ha prescritto qualche aspirina: inse¬ 
ritelo nell’area PRESCRIZIONE. 
Dette aspirine vi sono assegnate per 
tre, dieci, sette giorni? Due, quattro, 
otto al giorno? Un’area genericamen¬ 
te chiamata QUANTITÀ’ mette a vo¬ 
stra disposizione uno spazio dove po¬ 
tete inserire un numero; se non digite¬ 
rete nulla, comparirà automaticamen¬ 
te uno 0. E infine inserite una cifra 
ragionevole come spesa per l’ultima 
voce. Il disco gira di nuovo per un 
attimo mentre le nuove informazioni 
vengono scritte sul dischetto. 

Quando tornate al prompt del nome 
battete per Giovanna delle nuove in¬ 
formazioni, nello stesso ordine seguito 
per Giovanni: la data appropriata, il 
nome di un medico o di una clinica, il 
disturbo diagnosticato, l’onorario pa¬ 
gato e la terapia prescritta, con quanti¬ 
tà e costo. Con questo si dovrebbero 
completare due voci, una per Giovan¬ 
ni e una per Giovanna. Adesso battete 
FINE come risposta alla richiesta del 
nome. Il dischetto gira per un attimo e 
ritorna al menù principale. A questo 
punto può darsi che vogliate introdur¬ 
re almeno un altro record completo, 
compilando di vostra scelta dati per 
Giovanni o per Giovanna da utilizzare 
nelle opzioni che seguono. 

Scegliete l’opzione VEDERE AT¬ 
TUALI NOMI PAZIENTI sul menù 
principale mettendo il cursore sopra 
l’opzione VEDERE e premendo 
<RETURN>. Questo dà semplice- 
mente una lista di tutti i pazienti elen¬ 
cati per quel determinato anno. 

Controllo dati 

Adesso premendo <RETURN> o 
<ESC> tornerete al menù principale. 
Spostate il cursore sopra l’opzione 
CERCARE/ORDINARE/EDITA- 
RE e premete <RETURN>: avrete 
ora sullo schermo il menù CERCA- 
RE/ORDINARE/EDITARE con il 
cursore sulla prima opzione, ESAMI- 
NARE/EDITARE RECORD INDI¬ 
VIDUALI. Eseguite questa opzione e 
scegliete una persona, Giovanni, tan¬ 
to per cambiare. Scegliete questo no¬ 
me con le frecce e premete <RE- 
TURN>: avrete adesso sullo schermo 
il primo record di Giovanni. 

Notate i prompt alla base dello 
schermo. Premete E e <RETURN>, 
andando così nel modo editing con il 
cursore sulla voce DATA. La data va 
bene e quindi premete <RETURN>. 



li menù principale. Quando si usa il programma per la prima volta bisogna 
innanzitutto creare un nuovo file paziente. 


EShMINARE "EDIThRE RECORD IHDI UIDUAL 



I dati da inserire, oltre al nome del paziente e alla data, sono il nome del 
medico, la diagnosi, la terapia e le relative spese. 
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Gruppo 

«scomputo, ^s:^——- fi/»/«ritop 


Apple Ile 

monitor Ile e supporto 
Disk drive aggiuntivo, 
Mouse. 


Macintosh 

512K RAM 


Apple Ile 

128K RAM, 80 colonne 
Duodisk 



sinczlaii— 

ZX Spectrum 48K 



8 cassette originali, 

2 libri in italiano, 
supergaranzia Rebit. 

£. 365.000 iva inclusa 



SPECTRAVIDEO 
sini=lE3ir- 
Commodore 
Mcippkz computer 

olivelli 


ROMA 


• Via Nomentana 265/273 

Tel. 8450078 

• Via L. Bonincontri 105/107 
Tel. 5140792 

• Via Famagosta 33 

Tel. 385408 


Ulteriori informazioni saranno fornite presso i punti vendita. 































Adesso siete sulla voce DR/CLIN1- 
CA. In realtà Giovanni ha visto il Dr. 
Rizzi, non il Dr. Rossi: battete allora 
Rizzi al posto della voce esistente. 
Scendete lungo lo schermo con ripetu¬ 
ti <RETURN> fino a quando il cur¬ 
sore è sull’ultima voce, scoprendo, 
sempre per allenamento, che anche il 
costo della cura è sbagliato. Battete 
una barra (/) e poi <RETURN>. Tut¬ 
te le voci tornano ai loro valori origi¬ 
nali e il cursore è di nuovo sulla data. 


Questa volta lasciate immutate tutte 
le voci tranne COSTO DELLA CU¬ 
RA. Cambiate questa voce con un’al¬ 
tra cifra, scorrete fino all’ultima voce e 
poi premete il <RETURN> finale. Il 
disco gira, scrivendo le nuove infor¬ 
mazioni nel file di Giovanni. Dopo l’e¬ 
diting verrete riportati al display 
CERCA RE/O RD IN A RE/ED ITA- 
RE: battete Q <RETURN> per fini¬ 
re e tornare al menù CERCARE/OR- 
DINARE/EDITARE. 


Spostate il cursore sull'opzione 
ESPLORARE CAMPI DATI e pre¬ 
mete <RETURN>; dovete scegliere 
adesso un campo di dati da esplorare. 
Portate il cursore su DIAGNOSI e 
premete <RETURN>. Compare il 
prompt INTRODUCI VALORE 
STRINGA dove, in questo caso, do¬ 
vete introdurre INFLUENZA. Quan¬ 
do siete invitati a scegliere fra un unico 
paziente e tutti i pazienti, scegliete 
PER OGNI PAZIENTE. Il disco gira 


LISTATO 1 - APPLIMEDIC 


10 REM ************************ 

20 REM * APPLIMEDIC * 

30 REM * DI MARK CRAVEN * 

40 REM * COPYRIGHT (C) 1985 » 

50 REM * BY APPLICANDO & » 

60 REM * MICROSPARC INC. » 

70 REM »»»*«*«*»*****»******»** 

80 PRINT CHR* (21): TEXT : HOME 

90 0NERR GOTO 6260: REM CONTROLLA TUTTI GLI ERRORI 

100 G0SUB 1280: REM INTESTAZIONE 

110 D* = CHR* (4) 

120 DIM FL*(15),M*<50,8> 

130 YR* = "": HOME :V = 10:H = 24: VTAB V: HTAB 1: CALL - 
868: PRINT 'INTRODUCI L'AMO CHE INTERESSA GOSUB 89 
0 

140 F0R 1 = 1 TO 2: GET YR*(I): PRINT YR*(I); : GOSUB 920:YR 

1 = YR* + YR*<1): NEXT 

150 GOSUB 900: IF ER = 1 THEN ER = 0: GOTO 130 

160 FL* = "INTESTAZIONE * 1 + 4 YR* 

170 GOSUB 5780: REM LEGGE INTESTAZIONE-CARICA SCROLLOFF 

180 IF MI = 0 AND CS = 8 THEN RETURN 

190 GOSUB 200: GOTO 290 

200 FOR I = 0 TO 8: READ MU*(0,I>: NEXT 

210 FOR I = 1 TO 8: READ MU*(1,I): NEXT 

220 FOR I = 1 T0 4: READ MU*<3,1): NEXT 

230 FOR I = 1 TO 4: READ MU*(5,I): NEXT 

240 FOR I = 1 TO 2: READ MU$(9,I): NEXT 

250 FOR I = 1 TO 8: READ HX(I): NEXT 

260 FOR I = 1 TO 8: READ 17.(1): NEXT 

270 FOR I = 0 TO 2: READ HL*(I): NEXT 

280 RETURN 

290 C = 1 

300 HT = 10:VX = 1 :HLX = 1:S = 8:M1 = 0:M2 = 0: CALL 54915: 

REM S=NUMER0 DELLE OPZIONI DEL MENU' 

310 USX = 2 
320 GOTO 360 

330 VTAB HLX * VX + OS ♦ OS * (S < 10): HTAB HT: PRINT MU*( 
MI.OS) 

340 VTAB HLX ♦ VX * CS < CS * <S < 10): IWERSE : HTAB HT: 

PRINT MU$(M1,CS); NORMAL 
350 RETURN 

360 TEXT : CALL 820:CS = 0: INVERSE : GOSUB 690: GOSUB 720 

370 CS = C: REM SCELTA CORRENTE 

380 FOR M2 = 1 TO S: IF M2 = CS THEN INVERSE 

390 VTAB HLX + VSX * M2 + V/. 

400 HTAB HT: PRINT MIMMI ,M2): NORfttL 
410 NEXT 

420 VTAB 23: INVERSE : PRINT NORMAL : PRINT ■ ";: IN 

VERSE : PRINT "->":: NORMAL : PRINT " PER SCEGLIERE-":: 
INVERSE : PRINT "RETURN"!: NORMAL : PRINT " PER ESEGUI 
RE" 

430 VTAB 24: HTAB 3: PRINT "PUOI USARE ANCHE LE FRECCE SU 0 
GIU'":: POKE - 16368.0 

440 K = PEEK < - 16384): IF K < 128 THEN 440 
450 POKE - 16368.0:K = K - 128: IF K < > 8 AND K < >21 

AND K < > 11 AND K < > 10 AND K < >13 THEN 440: REM 

SOLE OPZIONI 
460 OS = CS 

470 IF K = 8 OR K = 11 THEN CS = CS - 1:CS = CS » (CS > 0) 

+ S * <CS= 0): GOSUB 330: GOTO 440: REM FRECCIA SU 0 

SINISTRA 

480 IF K = 21 OR K = 10 THEN CS = CS + 1 :CS = CS * (CS < = 
S) + (CS = S + 1>: GOSUB 330: GOTO 440: REM FRECCIA D 
ESTRA 0 GIU' 

490 IF MI = 0 THEN POKE 972,CS 


500 0N MI GOTO 510.520.530,540.550,560.570.580,590 
510 0N CS GOTO 1520,2500,2740,4530,5110,5470,6140,5690 
520 GOTO 2920 

530 0N CS GOTO 2850,3280.3820,290 
540 GOTO 3490: REM NOME PERSONALE PER RICERCA/ORDINAMENTO 
550 0N CS GOTO 4580,4580,4580,290 
560 GOTO 3330: REM TUTTE LE OPZIONI TORNANO A ESPLORAZION 
E PER C#4P0 

570 0N CS GOTO 3480,3600 

580 GOTO 3470: REM SCELTA INDIVD/FAMIL Ml=8 


590 

0N CS 

GOTO 4610,4670: REM 


600 

REM 


610 

REM 

xxxxxxxxxxxxxxxxxxxxxx 

620 

REM 

« 

X 

630 

REM 

« INIZIO DELLA 

X 

640 

REM 

* SEZIONE 

X 

650 

REM 

* SUBROUTINE 

X 

660 

REM 

* 

X 

670 

REM 

xxxxxxxxxxxxxxxxxxxxxx 

680 

REM 




690 VTAB 1: HTAB 20 - LEN (MIMMI,M2» / 2: PRINT MIMMI,» 
2):: RETURN 

700 FOR I = 38 TO 0 STEP - 1: POKE 32,1: POKE 33,40 - 1: H 
0ME : NEXT : RETURN 

710 POKE 32,0: FOR I = 0 TO 39: POKE 33,1 + I: HOME : NEXT 
: RETURN 

720 NORMAL : VTAB 2: HTAB 14: PRINT "AMO = 19";YR4: RETURN 
730 FOR 1 = 1 TO LEN (X*> 

740 IF ASC ( MID* <X*,I,1)) < 65 AND ASC ( MIO» (X$J,1>) 
< > 32 AND ASC ( MID* <X*,I,1)> ( > 46 THEN HTAB 1 

: VTAB 2 * M2 ♦ 3 - 2 * (EDX > 0): CALL - 868: PRINT " 

SOLO LETTERE":: GOSUB !030:ER = 1: HTAB 1: CALL - 868 
: HTAB 1:1 = LEN (X*) 

750 NEXT I : RETURN 

760 IF M2 = 1 AND LEN (X*> > 12 THEN HTAB 1: VTAB 2 * M2 

+ 3 - 2 * (EDX > 0) : CALL - 868: PRINT "TROPPO LUNGO"; 

: GOSUB 1030 :ER = 1 : HTAB 1 : CALL - 868: HTAB 1 
770 RETURN 

780 VTAB 2 * M2 t 3: FOR J = 1 TO 1 ♦ LX(M2>: HTAB J: PRINT 
CHR* (95);: NEXT : HTAB 1: RETURN 
790 IF M2 > 1 AND LEN <I*(M2)) > (LX(N2) 4 1) THEN HTAB 1 
: VTAB 2 » M2 4 3 ♦ (EDX * - 2): CALL - 868: PRINT "V 
OCE LUNGA";: GOSUB 1030:ER = 1 : HTAB 1 : CALL - 868: HT 
AB 1 

800 RETURN 

810 FOR J = 1 TO LEN (X*): IF ASC ( MID» (X*,J,1)> < 48 0 
R ASC ( MID* <X*.J,1)> > 57 THEN CALL 65338: CALL 653 
38: VTAB 2 » K 4 3 - 2 * (EDX > 0): HTAB KX(K): CALL - 
868: PRINT "NON VALIDA";: GOSUB 1030:ER = 1: HTAB HX(K 
): CALL - 868 :J = LEN (X*) 

820 NEXT : RETURN 

830 FOR J = 1 TO LEN (X*): IF ASC ( MID* (X*.J.D) < 48 0 
R ASC ( MID* (X* ,J, 1) ) > 57 THEN CALL 65338: CALL 653 
38: VTAB 2 * M2 4 3 - 2 * (EDX > 0): HTAB 1: CALL - 86 
8: PRINT ‘NON VALIDA";: GOSUB 1030:ER = 1: HTAB 1: CALL 
- 868 :J = LEN (X*) 

840 NEXT : RETURN 

850 FOR J = 1 TO LEN (X*):Y* = MID* (X*,J,1) 

860 IF ASC <Y*) < 48 FND ASC <Y*) < > 46 OR ASC (Y*) > 
5? AND ASC <Y*> < > 46 THEN HTAB 1 : VTAB 2 * M2 4 3 
- 2 » (EDX > 0): CALL 65338: CALL - 868: PRINT "DATO E 
RRATO!"; : GOSUB 1030:ER = 1 : HTAB 1 : CALL - 868:J = L 
EN (X*) 

870 NEXT : RETURN 

890 VTAB V: HTAB 32: PRINT "19"; CHR* (95); CHR* (95);: HTA 
B H 4 10: RETURN 
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di nuovo, leggendo ciascun file di pa¬ 
ziente e controllando se ce ne sia uno 
corrispondente. Quando ne ha trovato 
uno, questo viene visualizzato, con un 
totale progressivo delle corrisponden¬ 
ze trovate. Dopo il ritrovamento di 
ciascuna corrispondenza, potete stam¬ 
pare, finire o continuare. In questo 
esempio si troverà una sola corrispon¬ 
denza, con il campo di esplorazione 
visualizzato in modo lampeggiante, a 
rammentarvi la scelta fatta. 


Prescrizioni e spese 

Dopo l’esplorazione venite ricon¬ 
dotti al menù CERCARE/ORDINA- 
RE/EDITARE. Questa volta sceglie¬ 
te l’opzione LISTARE PRESCRI¬ 
ZIONI PAZIENTE ed eseguitela con 
<RETURN>. Scegliete il paziente da 
visualizzare ed eseguite premendo 
<RETURN>. Scoprirete che è molto 
utile portare con voi questa lista, 
quando andate dal medico o dal far¬ 


macista. 

Seguite i prompt e tornate al menù 
principale, scegliendo questa volta 
l’opzione TOTALI DELLE SPESE. 
Ormai dovreste avere una discreta fa¬ 
miliarità con il sistema, e quindi passa¬ 
te da soli per le tre opzioni, facendo le 
scelte necessarie per un unico paziente 
o per tutti, per vedere come la cosa 
funziona. Completata l’operazione 
tornate ancora una volta al menù prin¬ 
cipale. 


900 FOR J = 1 T0 LEN (YRt): 1F ASC < MIDt <YRt,J,l)> < 08 
OR ASC < MIDt (YRt.J.l)) > 57 THEN HTAB H: VTAB Vi C 
ALL - 868: PRINT 1 SOLO NUMERI GOSUB !030:ER = 1: 
HTAB H: CALL - 868:J = LEN (YRt) 

910 NEXT J: RETURN 

920 IF ASC (YRt(D) < 48 OR ASC (YRtd» > 57 THEN CALL 
65338: CALL 65338:YRf = ": POP : GOTO 130 
930 RETURN 

940 1F LEN (Xt) > 9 THEN CALL 65338: CALL - 868: PRINT ■ 
MX 9 CIFRE’;: GOSUB 1030:ER = 1: HTAB 1: CALL - 868: 
RETURN 

1010 IF M2 = 0 AND LEN (Xt) ) 9 THEN PRINT '*»<******' 

1020 RETURN 

1030 POKE - 16368,0: GET Gf: RETURN : REM ERRORE VISUALZ 
ZATO-CONTINUA 

1040 POKE 33,4: POKE 32,35: POKE 34.22: POKE 35,22: HOME : 

RETURN : REM IMPOSTA FINESTRA INPUT PER DISPLAY 
1050 POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,24: RETURN : 
REM DI NUOVO FINESTRA INTERA 

1060 VTAB 23: HTAB 1: PRINT , 'S / =ST«1PA <ESC>=MENU'PRINC, < 
RTN)=C0NT"j: 

1070 GET XI: POKE - 16368.0 

1080 IF Xt = ’S’ THEN VTAB PEEK (37) - 1: GOSUB 6500: GOT 
0 1060 

1090 IF X* = CHRf (13) THEN RETURN 

1100 IF X* = CHRt (27) THEN MI = 0:M2 = 0: POP : GOTO 290 

1110 GOTO 1060 

1120 POKE 33,40 - HX!M2): POKE 32,HX(M2) - 1: POKE 34,2 * M 
2 + 2: POKE 35,2 * M2 + 3 
1130 RETURN 

1140 IF Xf(J) = CHRf (27) AND EDX = 1 THEN lf(K> = Xt(J): 
POP :J = 3: POP : GOTO 4140 

1150 IF Xt(J) = CHRf (27) THEN POP i POP :M1 = 0:M2 = 0: 

GOTO 290: REM CONTROLLA SE ESC 
1160 IF (Xf(J) = CHRf (13) OR Xt = CHRf (27) OR Xf(J) = * 
./*) AND EDX = 1 THEN U(K) = Xf(J): POP :J = 3: POP : 
GOTO 4140 
1170 RETURN 

1180 IF Xf(J) = CHRf (13) THEN GOSUB 1200: POP : CALL 653 
38: CALL 65338: GOTO 1860 
1190 RETURN 

1200 POKE 35,24: POKE 34,0: POKE 32.0: POKE 33,40: RETURN 
1210 IF LEFTt <H(M2),4) = "FINE" THEN MI = 0:M2 = 0: POP 
: GOTO 290 
1220 RETURN 

1230 CALL 857: VTAB 8: FOR I = 1 TO 40: PRINT NEXT : 
PRINT : PRINT 'NESSUNA INFORMAZIONE PER QUESTA PERSONA 
PRINT 'DEVI SCEGLIERE:' 

1240 HTAB 11: IMMERSE : PRINT '(INTRODURRE NUOVI DATI)': NO 
RMAL : PRINT 'SUL MENU' PRINCIPALE': PRINT : FOR I = 1 
TO 40: PRINT NEXT : POKE - 16368,0: VTAB 20: P 
RINT 'PREMI UN TASTO QUALUNQUE...";: GET Xt: GOTO 290 
1250 REM 

1260 REM ** INTESTAZIONE ** 

1270 REM 

1280 INVERSE : HTAB 1 : FOR I = 1 TO 37: PRINT NEXT 
1290 PRINT 

1300 HTAB 1: PRINT '*' TAB( 37)'*' 

1310 HTAB 1: PRINT "»"; SPC( 7);' APPLIMED1C '; SPC< 
10) ;'*' : 

1320 FOR I = 1 T0 5 

1330 HTAB 1: PRINT TAB( 37)'*' 

1340 NEXT I 

1350 HTAB 1: FOR I = 1 TO 37: PRINT NEXT 
1360 VTAB 5: HTAB 18: PRINT 'DI’; VTAB 7: HTAB 12: PRINT ’M 
ARK R. CRAVEN": VTAB 9 
1370 NORMAL 


1380 PRINT ’H - 13 

1390 PRINT : HTAB H: IMMERSE : PRINT ’S';: NORMAL : PRINT ' 
PESE’: HTAB H: INVERSE : PRINT 'M'; : NORMAL : PRINT 'E 
DICHE' 

1400 HTAB H: INVERSE : PRINT 'C' ; : NORMAL : PRINT '0MPILAZI 
ONE': HTAB H: INVERSE : PRINT 'I';: NORMAL : PRINT 'NF 
ORAZIONI' 

1410 HTAB H: INVERSE : PRINT 'D'; : NORMAL : PRINT 'ETTAGLIA 
TE" 

1420 VTAB 21: PRINT '(0 1985 BY APPLICANDO 4 MICR0SPARC IN 
C 

1430 VTAB 23; PRINT ' PREMI UN TASTO PER INIZIARE..';: G 
ET Xt: POKE - 16368,0: RETURN 


1440 

REM 

************* 

1450 

REM 

* 

* 

1460 

REM 

* AGGIUNGE 

* 

1470 

REM 

* NUOVI 

* 

1480 

REM 

* DATI 

* 

1490 

REM 

* 

* 

1500 

REM 

************* 

1510 

1520 

REM 
S = 

8:M1 = 1:N1X 

= 1 


1530 TEXT : CALL 768: HTAB 1: VTAB 24: IMMERSE 
1540 FOR M2 = 1 T0 8: PRINT MUf(MI,M2): PRINT : NEXT : PRIN 
T : PRINT : PRINT :M2 = 1:M! = 0: GOSUB 690:M1 = 1: NO 
RMAL : GOSUB 720 
1550 GOTO 1570 

1560 FOR I = 5 T0 8 STEP 3: VTAB 2*1+ 3: HTAB HX(1) - 1: 
NEXT 

1570 FOR M2 = 1 TO S 

1580 IF M2 = 2 THEN At = 'ESC ' 

1590 VTAB 24: HTAB 8: PRINT 'INTRODUCI ';: IMMERSE : PRINT 
At;: NORMAL : PRINT ' PER FINIRE";: HTAB 1 
1600 At = 'FINE": VTAB 2 * M2 + 3: HTAB KX(M2) 

1610 It(M2) = '" 

1620 0N M2 GOSUB 1720,1860,1720,1720,2040,1720,2040,2040 
1630 NEXT M2 
1640 GOTO 2190 
1650 REM 

1660 REM ******************** 

1670 REM * * 

1680 REM * INPUT ALFAB. * 

1690 REM * * 

1700 REM ******************** 

1710 REM 

1720 GOSUB 1120: GOSUB 780 

1730 INPUT "';It(M2): IF If(M2) = "" THEN GOSUB 1200: GOTO 

1720 

1740 IF If(M2) = "FINE" THEN MI = 0:M2 = 0: GOTO 290 
1750 GOSUB 790: IF ER = 1 THEN ER = 0: GOTO 1720 
1760 Xt = If(M2): GOSUB 730: GOSUB 760: IF ER = 0 THEN GOS 
UB 2270: GOTO 1780: REM CONTROLLA ESISTENZA NOME 
1770 IF ER = 1 THEN ER = 0:lt(M2) = "': GOSUB 1200: GOTO 17 
20 

1780 HTAB 1: VTAB 2 * M2 * 3: PRINT LEFTt (It(M2),LX(M2) ♦ 
1);: GOSUB 1200: RETURN 

1790 REM 

1800 REM **************** 

1810 REM * * 

1820 REM * INPUT DATA * 

1830 REM * * 

1840 REM **************** 

1850 REM 

1860 Xt = ": GOSUB 1120: GOSUB 780: HTAB 1: PRINT CHRf (3 
2 ) ; : 

1870 J = 1: GET Xt(J): GOSUB 1140:Xf = Xt<J): PRINT Xt: 

1880 FOR J = 1 T0 3: GET Xt(J>: GOSUB 1140: PRINT X!(J);:Xt 

(continua) 
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Eliminazione 
e cambio anno 

Scegliete sul menù principale ed ese¬ 
guite l’opzione ELIMINARE FILE 
PAZIENTE ESISTENTE. Qui dove¬ 
te effettivamente battere il nome che 
volete eliminare: Giovanna. Se batte¬ 
te un nome non valido, come Carla, 
sarete informati che non c’è alcun no¬ 
me del genere nei file. Confermate 
con S che volete effettivamente elimi¬ 
nare Giovanna dal file. Il disco gira 
per un momento, e il file di Giovanna 
è sparito per sempre. Quando tornate 
al menù principale, scegliete VEDE¬ 
RE ATTUALI NOMI PAZIENTI 
per verificare che il file di Giovanna 
sia stato effettivamente eliminato. 

Spostate il cursore su CAMBIARE 
ANNI ed eseguite. La videata dice 
qual è l'anno in corso e chiede l’anno 
nuovo da scrivere, come ha fatto all’i¬ 


nizio del programma. Supponiamo 
che vogliate introdurre anche tutte le 
informazioni dell’anno passato, per 
vedere quali siano state le spese. Basta 
introdurre 84 come anno. Come in 
precedenza sarà necessario creare un 
file per ciascuna persona prima di po¬ 
ter introdurre i dati. 

Adesso, a meno che non vogliate 
giocare ancora un po’ con il program¬ 
ma, continuate con la routine ELIMI¬ 
NARE FILE PAZIENTE ESISTEN¬ 
TE ed eliminate il resto dei file creati 
per ciascun anno in base a queste spie¬ 
gazioni (a meno che, s'intende, non 
abbiate adoperato informazioni vali¬ 
de). Tornate al menù principale e spo¬ 
state il cursore su USCIRE DAL 
PROGRAMMA. Eseguite con <RE- 
TURN> per lasciare l’APPLIME- 
DIC. 

Noterete forse che tutti i sommari e i 
totali dei dati vengono generati senza 
alcuna digitazione vera e propria. Ba¬ 


stano le frecce e il tasto <RE- 
TURN>. Si hanno come conseguenza 
introduzioni rapide, efficienti e relati¬ 
vamente esenti da errori. 

L’introduzione 
dei programmi 

Il pacchetto di programmi APPLI- 
MEDIC comprende due programmi: 
il programma principale in Basic, AP- 
PLIMEDIC (listato 1), e il program¬ 
ma binario SCROLLOFF, che serve 
ad aggiungere a un programma co¬ 
mandi HOME d’effetto. 

Per digitare APPLIMEDIC inserite 
dapprima il programma in Applesoft 
visibile nel listato 1 e salvatelo su di¬ 
schetto con il comando: 

SAVE APPLIMEDIC 

Ricorrete al Monitor battendo 
CALL-151 per introdurre il codice in 
linguaggio macchina di SCROL- 


= Xt 4 Xt(J): 1F J = 1 OR J = 3 THEN PRINT '/' ; :Xt = 

2310 NEXT : IF M2 = 8 THEN 2350 

Xt 4 V* 

2320 IF NX = 9 THEN 2820: REM TROPPI FILE 

1890 NEXT ; PRINT YRt;: 

2330 NIX = 0: REM REIMPOSTA UALORE SE NUOUO NOME FILE 

1900 It(M2) = X* 4 YRt 

2340 IF MI = 1 THEN NFX = 1: RETURN : REM IMPOSTA FLAG NU 

1910 1F EDX = 1 THEN RETURN : REM FLAG EDITING 

0U0 FILE 

1920 X* = LEFTt (Xt,2) 4 MIDt (X*,4,2) 

2350 UTAB U: HTAB HX(1): CALL - 888: PRINT '** NOME NON NE 

1930 IF UAL < LEFTt (Xt,2)> > 31 OR UAL < RlGKTt (Xt,2)) 

L FILE »*■: CALL 85338: CALL 85338: FOR J = 1 TO 1500: 

> 12 THEN 1860 

NEXT J: UTAB U: HTAB KX<1> 

1940 GOSUB 830 

2380 IF M2 = 7 THEN ER = 1: RETURN 

1950 IF ER = 1 THEN ER = 0; GOTO 1880 

2370 IF MI = 5 THEN ER = 1: RETURN 

1980 UTAB 7: KTAB 2: PRINT It(M2>; 

2380 IF M2 = 8 THEN ER = 1 : RETURN 

1970 GOSUB 1200: RETURN 

2390 GOSUB 780: POP :lt(l) = ": GOTO 1720 

1980 REM 

2400 IF M2 < >1 THEN RETURN 

1990 REM »»********»**»*»# 

2410 FLt = It(l) 4 V 4 YRt: GOSUB 5930: RETURN : REM LEG 

2000 REM * * 

GE FILE E CONTINUA INPUT 

2010 REM * INPUT NUMERI * 

2420 RETURN 

2020 REM » * 

2430 REM 

2030 REM ««a»**»»***»**#* 

2440 REM »**»»*»*4*»»**» 

2040 GOSUB 1120: GOSUB 780 

2450 REM * * 

2050 INPUT ";It(M2) 

2480 REM » UEDE I FILE * 

2080 GOSUB 1210: REM "FINE' 9 

2470 REM * * 

2070 IF M2 = 7 THEN 2130: REM QUANTITÀ' 

2480 REM ***»«**»**»»*»* 

2080 X* = It(M2) : IF X* = ” THEN Xt = '0' 

2490 REM 

2090 GOSUB 850: GOSUB 2170 

2500 TEXT : CALL 857:M2 = 2: GOSUB 890: GOSUB 720 

2100 GOSUB 940 : GOSUB 2170 

2510 IF NX = 0 THEN CALL 85338: CALL 8533B: GOTO 2580 

2110 1EM2) = Xt 

2520 FOR I = 1 TO NX STEP 2 

2120 HTAB 1: VTAB 2 « M2 ♦ 3: PRINT 4 lt(M2):: GOSUB 1200: 

2530 UTAB (22 - NX) / 2 4 I / 2 

RETURN 

2540 PRINT TAB( 5)1;') '; LEFTt (FLt(I), LEN (FLt(D) - 3) 

2130 Xt = Il(M2) : IF Xt = " THEN PRINT :It(M2) = 1 0': GO 

: TABI 28) ; : IF I < NX THEN PRINT 1 4 1;-) ■; LEFTt ( 

TO 2180 

FLKI 4 1), LEN (FLtd 4 D) - 3) 

2140 GOSUB 850: GOSUB 2170 

2550 NEXT I 

2150 IF UAL (It(M2)) > 12 THEN : CALL 85338: GOTO 2040 

2580 IF CS < ) 2 THEN RETURN : REM ALTRE ROUTINE 

2180 HTAB 1: UTAB 2 * M2 4 3; PRINT 1 * 4 lt(M2)i: GOSUB 12 

2570 GOSUB 1080: GOTO 290 

00: RETURN 

2580 UTAB 8: FOR I = 1 T0 40: PRINT NEXT : PRINT : PR 

2170 IF ER = 1 THEN ER = 0 : POP : GOSUB 1200: GOTO 2040 

INT 'NON E' STATO CREATO ALCUN FILE PAZIENTE. 1 : PRINT 

2180 RETURN 

■USA L'OPZIONE <\: INVERSE ; PRINT 'INTRODURRE NUOVI 

2190 NIX = NIX 4 1 

DATI';: NORMAL : PRINT ■>*: PRINT 

2200 FLt = Itti) 4 4 m 

2590 PRINT 'SUL MENU' PRINCIPALE': PRINT : FOR I = 1 TO 40: 

2210 FOR 1 = 1 T0 8 

PRINT ■*■;: NEXT : P0KE - 18384,0: UTAB 23: PRINT 'P 

2220 Mt(NIX,l) = It(l): NEXT 

REMI UN TASTO QUALUNQUE...■; : GET Xt: GOTO 290 

2230 PRINT 

2800 REM « >9 PAZIENTI »* 

2240 GOSUB 8020 

2810 REM 

2250 IF NFX = 1 THEN NFX = 0:NX = NX 4 l:FLt(NX) = FLt:FLt 

2820 TEXT : HOME : UTAB 3: FLASH : PRINT 'ATTENZIONE' ; : N0R 

= "INTESTAZIONE'' 4 V 4 YRt; GOSUB 5880 

MAL : PRINT '-NUMERO MASSIMO FILE PAZIENTI' 

2280 GOTO 1530: REM INTRODUCE DATI MENU' 

2830 UTAB 10: KTAB 1: PRINT 'NON PUOI AUERE PIU' DI 9 PAZIE 

2270 IF M2 = 1 THEN U = 5: GOTO 2290 

NT1. ': PRINT *DEUI USARE UN ALTRO DISCO 0 ELIMINARE': 

2280 RETURN 

PRINT 'UN FILE PAZIENTE ESISTENTE PER CREARE': PRINT ' 

2290 IF NX = 0 THEN C = 5: POP : GOTO 300: REM NESSUN FI 

UN NUOUO FILE.' 

LE—NE CREA UNO 

2840 CALL 85338: CALL 85338 

2300 FOR I = 1 TO NX: IF Itti) = LEFTt (FLt(I), LEN (FLUÌ 

2850 UTAB 23: HTAB I: PRINT “PREMI UN TASTO PER TORNARE AL 

)) - 3) THEN PD = I : I = NX: NEXT :I = PD: GOTO 2400 

MENU'GET X$: POKE -10368,0 / k 

(continua) 
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POCHE URI 



Le stampanti MT/85, a 80 colonne, e MT/86, a 136 
colonne, rappresentano una nuova frontiera nel 
settore delle stampanti a basso costo. 

Basso costo, ma non bassa qualità e basse 
prestazioni, infatti ecco le credenziali di questi due 
nuovi prodotti. 

Velocità a 180 cps. bidirezionale ottimizzata, NLQ 
a 45 cps., grafiche, possibilifà di 8 fonti alternative 
di caratteri e naturalmente la completa 

compatibilità con il PC IBM. 

Il prezzo: il più competitivo del 
mercato in questa fascia di 
prestazioni. 

Naturalmente anche le MT/85/86 
oltre ai trattori hanno anche 
trascinamento a frizione e 
consentono pertanto il 
trattamento del foglio singolo. 
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LOFF, e salvatelo su dischetto con il 
comando: 

BSAVE SCROLLOFF, A$300,L$CC 

Caratteristiche 

Si è fatto un notevole sforzo per 
creare un programma comprensibile, 
facile da introdurre e da modificare, e, 
quel che più importa, facile da usare. 
Quasi tutte le variabili, le opzioni del 
menù e l’input sono indicizzati in qual¬ 
che maniera per l’efficacia dell’opera¬ 
zione e il risparmio di preziosa memo¬ 


ria. Il principale metodo utilizzato è 
quello dell’indicizzazione mediante la 
posizione del cursore nel menù, che 
sulle prime può confondere un poco. 
Inserite e modificate il codice (in parti¬ 
colare l’area di selezione del menù) 
con estrema cautela, perché è molto 
facile smarrirsi. 

Tutte le scelte del menù, le intesta¬ 
zioni delle pagine e i titoli, come pure 
la maggior parte delle tabulazioni ver¬ 
ticali e orizzontali, sono variabili ma¬ 
trice che vengono lette in memoria 
nella parte iniziale del programma (li¬ 
nee 200-270) dalle istruzioni DATA 


alla fine del programma. Il set del me¬ 
nù è la prima variabile nelle matrici 
bidimensionali del tipo MU$ 
(M1,M2). La seconda variabile, M2, è 
l'elemento in quel set. Il set del menù 
principale è M1=0, e quindi il primo 
elemento della matrice (M2=0) è l’in¬ 
testazione del menù principale, ME¬ 
NU’ PRINCIPALE —APPLIME- 
DIC, come appare nella prima istru¬ 
zione data a linea 6180. Seguono le 
opzioni del menù quali elementi con¬ 
secutivi della matrice. Ogni set di me¬ 
nù corrisponde per quanto possibile a 
un’opzione del menù principale, e 


2<460 POP : GOTO 290: REM RITORNA AL MENU' PRINCIPALE 


2470 

REM 


2480 

REM 

#*#**#**#*#***#*** 

2490 

REM 

* * 

2700 

REM 

* R1CERCA/0RDINA * 

2710 

REM 

* * 

2720 

REM 

a*#*##*****##***** 

2730 

REM 



2740 CALL 857;S = 4:N1 = 0:M2 = 3:HLX = 4:V4 = 1 :HT = 5 

2750 GOSUB 690: G0SUB 720:M1 = 3 

2740 IF NX = 0 THEN 2510: REM NESSUN FILE 

2770 GOTO 370 

2780 REM 

2790 REM ***************** 

2800 REM * * 

2810 REM * REC. INGIÙ. * 

2820 REM * * 

2830 REM ***************** 

2840 REM 

2850 CALL 768 :RX = 0:M0 = 0 :SUM = 0 

2840 S = NX:HLX = (20 - 2 * NX) / 2 - 1 :KT = 15 

2870 M2 = CS: GOSUB 490: GOSUB 720 

2880 MI = 2 

2890 GOSUB 2900: GOTO 2940 

2900 FOR I = 1 T0 NX:MUt(Ml,I) = LEFTt (FLt(I), LEN <FLt(l 
)) - 3): NEXT 
2910 GOTO 370 

2920 FLt = FLt(CS): POKE 34,23: GOSUB 5930: POKE 34.0: IF N 
17. = 0 THEN 1230: REM LEGGE FILE—CONTROLLA NIX 
2930 RETURN 

2940 IF RXX = 1 THEN RXX = 0: RETURN 
2950 REST0RE : GOSUB 200:M1 = 1 

2940 TEXT : CALL 748: HTAB 1: VTAB 24: INVERSE : FOR M2 = 1 
TO 8: PRINT MUt<Ml,M2>: PR1NT : NEXT : PR1NT : PRINT 
: PRINT : PRINT ; PRINT 
2970 NORMA! :J = 1 

2980 FOR I = 1 TO 8: VTAB 2*1 + 1: HTAB HX(I): PRINT Mt(J 
,1);: NEXT 

2990 MI = 3:M2 = 1 : GOSUB 490 

3000 VTAB 20: HTAB 1; PRINT TEMETTI N. RECORD DA VEDERE (1 
-" ìNIT':*) ,0* 

3010 VTAB 21: HTAB 1: INVERSE : PRINT ’RTN":: NORMAL : PRIN 
T ^SCORRE S= STAMPA F=FINE E=EDITA" 

3020 CK = 1: GOSUB 3170 

3030 VTAB 23: HTAB l;Xt = STRI (RX): GOSUB 940:RXt = Xt: P 
RINT "CP=’;RXt: VTAB 24: PRINT -OT^'jiX* = STRt (MD): 
GOSUB 940 :MDt = Xt: PRINT MDt:' T0TALE='::X1 = STRt 
(SUM): GOSUB 940:SUMt = Xt: PRINT SUM*:: CALL - 848 
3040- VTAB 22: HTAB 1: PRINT 'RECORD N. IfWERSE : PRINT 
J:: NORMAL ; PRINT ' DI ’;N1X: TABI 30): : PRINT 'INPUT 
=*; : GOSUB 1040: VTAB 22: INPUT ''jX* 

3050 IF NIX = 0 THEN 290: REM NESSUN RECORD—TORNA AL MEN 
U' 

3040 GOSUB 1050: REM APRE FINESTRA 
3070 IF Xt = 'F' THEN 2740 

3080 IF X* = " THEN J = J + 1 : GOTO 3140 

3090 IF Xt = 'S' THEN GOSUB 4500: HTAB 38 

3100 IF X* = 'E' THEN 4040 

3110 IF VAL (X*) < = 0 OR VAL (Xt) > NIX THEN VTAB 23: 

HTAB 1: CALL - 848: HTAB 1: GOTO 3040 
3120 XX = VAL (Xt) 

3130 J = XX 

3140 FOR T= 1 TO 8: VTAB 2*1 + 1: HTAB HX(I): CALL - 84 

8: VTAB 2 * I + 2: HTAB 1: CALL - 848: NEXT 


3150 IF J < = NIX THEN FOR I = ! TO 8: VTAB 2 * I + 1 : HT 
AB HX(I): PRINT Mt(J.I);: NEXT 
3140 IF EDX = 1 THEN RETURN 
3170 RX = 0:MD = 0:SUM = 0: FOR I = ! TO J 
3180 RX = RX * VAL (Mt(l,8»:MD = MD + VAL <Mt(I.5)):SUM 

= RX * MD: NEXT : IF CK = 1 THEN CK = 0: RETURN 

3190 IF J < = NIX THEN 3030 
3200 IF J > NIX THEN J = 1: GOTO 3150 
3210 REM 

3220 REM ********************* 

3230 REM * * 

3240 REM «ESPLORA CAMPO DATI * 

3250 REM * * 

3240 REM ********************* 

3270 REM 

3280 TEXT : CALL 857:S = 8:M1 = 3:HLX = 1 :C = 1:VX = 1 :M2 = 

2: GOSUB 490: GOSUB 720 :M1 = 1 

3290 MI = 4:HT = lOiJl = 0: REM J1=C0NTAT0RE CORRISPONDEN 
ZE ESPLORAZIONI 

3300 J = 0: REM CONTATORE RECORD 

3310 FOR I = 1 TO 8:MUt(Ml,1) = MUt(l,I): NEXT 

3320 GOTO 370 

3330 C1X = CS: REM SCELTA DEL FILE 
3340 CALL 820:M1 = 0:M2 = 3: GOSUB 490: GOSUB 720 
3350 FOR I = 1 T0 40: PRINT NEXT 
3340 VTAB 23: IIWERSE : PRINT '<RTN>"; : NORMAL : PRINT 'PER 
MENU' ESPLORACI0NE/ORDINAMENT0" 

3370 VTAB 4: HTAB 1: PRINT 'CAMPO DA ESPL0RARE=*; : INVERSE 
: PRINT MlltO ,C1X) : NORMAL 

3380 'VTAB 10: HTAB 1 : CALL - 848: INPUT 'INTRODUCI STRINGA 
/VALORE => ':X$ 

3390 IF Xt = " THEN 2740 

3400 IF (C1X = 5 OR C1X = 7 OR C1X = 8) AND VAL (Xt) < = 

0 THEN CALL 45338: GOTO 3380 
3410 REM 

3420 REM SCELTA IND1VID. 0 TAMIL. *** 

3430 REM 

3440 CALL 857:M1 = 3:M2 = 2: GOSUB 490: GOSUB 720 
3450 FOR I = 1 TO 2:MUt(8.I) = MUt(9,I): NEXT 
3440 MI = 8:S = 2:VX = 4:HT = 10: GOTO 370 
3470 C2X = CS: RESTORE : GOSUB 200 

3480 IF C2X = 1 THEN CALL 857:M1 = 3:M2 = 2: GOSUB 490: GO 
SUB 720:N1 = 4:S = NX.:HT = 15:VX = 1: GOTO 2900: REM 
PRELEVA NOME PERSONA PER CORRISPONDENZA 
3490 C3X = CS: REM C3XESIM0 DEL NX NOME DEL FILE 
3500 IF C2X = 1 THEN E = C3X:B = C3X: REM 1 FILE 
3510 IF C2X = 2 THEN E = NX:B = 1 : REM TUTTI I FILE 
3520 MI = 1 

3530 CALL 857: VTAB 24: HTAB 1: IIWERSE : FOR M2 = 1 TO 8: 
PRINT MUt(Ml,M2): PRINT : NEXT : PRINT : PRINT : PRINT 
: NORMAL :J = 0 

3540 MI = 0:M2 = 3: GOSUB 490: GOSUB 720:M1 = 1 
3550 VTAB 2 * C1X ♦ 3: HTAB 1: FLASH : PRINT MUtd.ClX): NO 
RMAL 

3540 VTAB 3: HTAB 3: PRINT 'STRINGA ESPLORACI0NE=' : : IIWERS 
E : PRINT Xt: NORMAL 
3570 FOR X = B TO E: REM NOMI FILE 
3580 HTAB 1 

3590 FLt = FLt(X): POKE 35.0: GOSUB 5930: POKE 35,24: IF NI 
X = 0 THEN NEXT X: GOTO 3430: REM LEGGE FILE 
3400 J = 0: FOR Y = 1 TO NIX 

3410 IF LEFTt (Xt, LEN (Xt)) = LEFTt (Mt(Y.ClX), LEN (Xt) 

) THEN J = J + 1 :J1 = J1 + 1 : GOSUB 3450 
3420 NEXTY.X (continua) 
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IN DIRETTA 
DAL VOSTRO 
COMPUTER. 



TARGET MARKET 





Sistema Polaroid Palette per dia im¬ 
mediate 35mm. e copie fotografiche 
a colori su carta (hard-copy). 

Il sistema Polaroid Palette è stato con¬ 
cepito come unità periferica per i più diffu 
si personal computers. 

Istogrammi, grafici, ed altri tipi di eia 
borati possono essere facilmente riprodot¬ 
ti nelle tonalità più sature e brillanti, gra 
zie ad una scala cromatica di ben 72 colori. 

Il tutto in tempo reale, operando sia 
con schermo monocromo che a colori. 

Il sistema Polaroid Palette utilizza, in 
fatti, il segnale di uscita del computer stes 






so e consente elaborazioni fotografiche a 
colori sia su positivo (hard copy) che in 
diapositiva Polaroid 35 mm. 

Il sistema minimizza quindi la retinatu 
ra dello schermo, per una riproduzione fo¬ 
tografica accurata e definita. 

Il sistema Polaroid Palette è uno stru¬ 
mento di lavoro per operatori di marke¬ 
ting, per ricercatori, per tutti coloro che 
necessitano di un adeguato supporto visi¬ 
vo alle loro presentazioni. 

Chiedete una dimostrazione al vo¬ 
stro rivenditore di fiducia e ai Distri¬ 
butori Specializzati Polaroid (indiriz¬ 
zi sulle Pagine Gialle). 


Per ulteriori informazioni spedite questo 
tagliando a: POLAROID (Italia) S.p.A. 
Divisione Prodotti Professionali 
Via Piave, 11 Tel. 0332/470031 
21051 ARCISATE (Varese) 



Mittente 

Indirizzo 


ir 

se 


Polaroid 


"Polaroid" è un marchio registrato della Polaroid Corporation, Cambridge, Mass., USA. Polaroid 1985. 






















qualcuno ha impieghi multipli. Le ma- l’elemento di quel set, M2, dove È questo l’autentico "cervello" del 

trici H% () e L% ( ) sono le tabulazio- M2=CS nella routine di menù. Tutte programma, nel senso che ogni scelta 

ni orizzontali e le lunghezze di stringa le routine di menù tornano al menù fatta sul menù con la selezione a curso- 

delle linee di input per l’introduzione e principale con variabili impostate sui re inverso ha luogo nelle linee 

l’editing dei dati. valori originali del 

menù principale. 290-590. In effetti le sole volte che si 

Le opzioni del menù (matrici del Queste funzioni vengono eseguite nel- devono immettere dati da tastiera so- 

tipo MU$(M1,M2)) vengono eseguite le linee 500-590, dove la variabile CS no quelle che si presentano durante 

tramite comandi ON —GOTO che ha lo stesso valore di M2, l’opzione del l’introduzione dei dati, l’editing dei 

hanno come chiavi il set di menù MI e menù. 

dati, l’eliminazione dei file e l’esplora- 

3630 1F J1 = 0 THEN CALL 768: VTAB 10: HTAB 8: PR1NT 'NON 

4160 Xi = li(K): 0N K GOSUB 4160,4270,4320,4320,4390,4320,4 

TROVATE CORRISPONDENZE": POR I = 1 TO 1500: NEXT : GOT 

360,4390 

0 2740 

4170 NEXT 

3d40 HLX = 5: GOTO 2740 

4180 FOR X = 2 TO 8: IF MÌ(JX,X) < ) !i(X) THEN X = 8: NEX 

3650 VTAB 23: CALL - 868 

T : GOTO 4200 

3660 VTAB 24: HTAB 1: PRIMI "TOTALE CORRISP0NDENZE= "; : HT 

4190 NEXT : GOTO 4230 

AB 23: INVERSE : PRINT Jlj: NQRMAL 

4200 FOR X = 2 T0 8 

3670 F0R I = 1 T0 8: VTAB 2*1 + 3: HTAB 105(1): CALL - 86 

4210 MÌ(JX,X) = It(X) : NEXT 

8: PRINT N$(Y,I): NEXT 

4220 GOSUB 6020: REM SCRIVE FILE 

3680 VTAB 22: HTAB 1: PRINT "'S'= STAMPA 'F'=FINE <";: 

4230 J = JX : EDX = 0:N1 = 1: GOTO 2960: REM PULISCE FLAG 

INVERSE : PRINT "RTN" ; : N0RMAL : PRINT "> =C0NT1NUA J 

EDITIG—IMPOSTA STRINGHE MENU' 

3690 VTAB 23: HTAB 25: PRINT "INPUT ";: GET Yi: P0KE - 163 

4240 REM 

68,0: 

4250 REM »* CONTROLLA LA DATA « 

3700 IF Yi = CHRi (13) THEN RETURN 

4260 REM 

3710 IF Yi = ’F" THEN POP : GOTO 2740 

4270 Xi = IidO:XÌ = LEFTi (Xi,2) * MIDi (Xi.4,2) 

3720 IF Yi = "S" THEN VTAB 22: HTAB 1: CALL - 958: G0SUB 

4280 GOSUB 810: IF ER = 1 THEN ER = 0:XÌ = "": POP : GOTO 4 

6500: GOTO 3680 

110 

3730 GOTO 3690 

4290 IF VAL ( LEFTi (Xi,2)> ) 3! OR VAL ( RIGHTi (Xi,2>) 

3740 GET Xi: GOTO 290 

) 12 THEN POP : GOTO 4110 

3750 REM 

4300 RETURN 

3760 REM fi*»*»*»****»**»*» 

4310 GOSUB 4440: RETURN 

3770 REM * * 

4320 IF Xi = "" THEN GOSUB 4440: RETURN 

3780 REM « LISTA RICETTE * 

4330 M2 = K: GOSUB 1120: GOSUB 730: GOSUB 790: TEXT : REM 

3790 REM * » 

CONTROLLO ALFABETICO 

3800 REM #*»»»****»#****** 

4340 IF ER = 1 THEN ER = 0: POP : GOTO 4110 

3810 REM 

4350 RETURN 

3820 RXV. = 1: G0S0B 2850: REM FLAG PER QUESTA ROUTINE 

4360 IF Xi = "" THEN GOSUB 4440: RETURN 

3830 REST0RE : G0SUB 200:M1 = 1 

4370 FOR I = 0 T0 12: IF Xi = STRI (I) THEN I = 12: NEXT : 

3840 VTAB 3: HTAB 12: PRINT "IL PAZIENTE E' ";: INVERSE : P 

RETURN 

RINT LEFTi (FLÌ(CS), LEN (FLÌ(CS)) - 3): N0RMAL 

4380 NEXT : POP : GOTO 4110 

3850 VTAB 4: HTAB 1: PRINT "PRESCRIZIONE"; TAB( 19)"DR/CLIN 

4390 IF Xi = "" THEN GOSUB 4440: RETURN 

ICA"; TAB( 34)" DATA " 

4400 M2 = K: GOSUB 1120: GOSUB 940: TEXT : IF ER = 1 THEN E 

3860 F0R 1 = 1 TO 40: PRINT NEXT 

R = 0: GOTO 4430: REM CONTROLLO NUMERO 

3870 P0KE 34,5: HOME 

4410 GOSUB 1120: GOSUB 850: TEXT : IF ER = 1 THEN ER = 0: G 

3880 IF NIX = 0 THEN PRINT "NESSUN RECORD NEL FILE": FOR 1 

0T0 4430 

= 1 TO 2000 : NEXT : GOTO 290 

4420 lidi) = Xi: VTAB 2 * K + 1 : HTAB HX(K): PRINT IidO: R 

3890 FOR 1 = 1 T0 INT (NIX / 15) + 1 

ETURN 

3900 IF NIX < = 15 THEN FOR J = 1 T0 NIX: GOTO 3920 

4430 POP : GOTO 4110: REM SOLO SE C'E' UN ERRORE 

3910 FOR J = (I - 1) * 15 ♦ 1 TO (I - 1) * 15 ♦ 15 

4440 VTAB 2 * K ♦ 1: HTAB HXOO: PRINT Nt(JX,K):I*(K> = Mi( 

3920 PRINT LEFTi <MÌ(J,6>,18); TAB< 19) LEFTi (Mi(j,3),12) 

JX.K): RETURN 

: TAB( 35) LEFTi (Mi(3,2>,5) 

4450 REM 

3930 NEXT J 

4460 REM i»*ì»*««ì**»*ì»** 

3940 G0SUB 1060: REM STAMPA 0 C0NT. 

4470 REM * * 

3950 NEXT I 

4480 REM * TOTALI » 

3960 GOTO 2740 

4490 REM * SPESE * 

3970 REM 

4500 REM » * 

3980 REM ««in*»*******»*» 

4510 REM ***************** 

3990 REM * * 

4520 REM 

4000 REM * MODO ED1T * 

4530 TEXT : CALL 85?:M1 = 0:S = 4:M2 = 4:VX = 1:M = 0:N = 0 

4010 REM * * 

:HT = 10:HLX = 2 

4020 REM **«**»*»***»*»*»* 

4540 J1 = 0: REM CONTATORE RECORD 

4030 REM 

4550 GOSUB 690: GOSUB 720:M2 = 0:CS = 1::M1 = 5 

4040 HTAB 1: VTAB 20: CALL - 958: REM PULISCE BASE SCHE 

4560 !F NX = 0 THEN 2510 

RM0 

4570 GOTO 370 

4050 JX = J: REM VALORE TEMPO 

4580 CALL 768:C1X = CS:S = 2:VZ = B:M1 = 0:M2 = 4: GOSUB 69 

4060 EDX = 1 : REM IMPOSTA FLAG EDITING 

0: GOSUB 720 

4070 Xi = "" 

4590 MI = 9:M2 = 0 

4080 VTAB 23: HTAB 1: PRINT "EDITA ";: INVERSE : PRINT "RTN 

4600 GOTO 370 

";: N0RMAL : PRINT "ACCETTA 7'=RIEDITA PAGINA" 

4610 CALL 768:C2X = CS:M1 = 0:M2 = 4: GOSUB 690: GOSUB 720 

4090 GOSUB 3140: REM MOSTRA DATI 

4620 S = NXiHLX = (20 - 2 * NX) / 2 - !:HT = 15:M2 = 4:VX = 

4100 FOR K = 2 T0 8 

1:M1 = Os: GOSUB 690: GOSUB 720:M1 = 2: GOSUB 2900 

4110 VTAB 2 * K + 1 : HTAB HX(K) 

4630 RESTORE : GOSUB 200:M1 = 1 

4120 IF K = 2 THEN GOSUB 1870:IÌ(K) = It(M2): GOTO 4140: R 

4640 C3X = CS: REM NOME PAZIENTE PER NUMERO FILE 

EM INPUT DATA E CONTROLLO ERRORI 

4650 IF ER = 1 THEN ER = 0: HTAB 1: GOTO 4620 

4130 INPUT "";IÌ(K) 

4660 GOTO 4680 

4140 IF IÌ(K) = CHRi (13) THEN VTAB 2 * K + 1 : HTAB KX(K) 

4670 C2X = CS: REM TUTTI 1 FILE CS=2 

: PRINT M$(JX,K):It(K) = M$(JX,K) 

4680 IF C2X = 1 THEN E = C3X:B = C3X: REM 1 FILE 

4150 IF I$(K) = "/* THEN FOR I = 2 T0 8: VTAB 2 * I * 2: H 

4690 IF CZZ = 2 THEN E = NX:B = 1 : REM TUTTI I FILE 

TAB 1: CALL - 868: VTAB 2 * I ♦ 1 : HTAB HX(I): CALL 

4700 RI = 5:R2 = 8 

- 868: HTAB HX(I): PRINT MÌ(JX,l)ii NEXT :K = 2: VTAB 

4710 PRINT 

2 * K + 1: HTAB HX(K): GOTO 4110 

4720 CALL 857:M! = 0:M2 = 4: GOSUB 690: VTAB 2: HTAB 1 
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zione delle stringhe. 

Si sono dovute fare diverse scelte in 
merito alla struttura dei file di dati 
utilizzati e generati da APPLIME- 
DIC. Si doveva ricorrere a un unico 
gigantesco file? Oppure era meglio 
farne diversi di piccole dimensioni? 
Dovevano essere ad accesso casuale o 
sequenziali? Come separarli per an¬ 


no? Si è deciso alla fine di creare molti 
piccoli file, di natura sequenziale, con 
file di intestazione per ogni anno. 
Questa scelta è stata fatta a causa della 
caratteristica di manipolazione di dati 
del programma, che è gestita più facil¬ 
mente e con maggiore rapidità da file 
sequenziali. 

Per questa ragione a ogni nome di 


file (nome di paziente) è aggiunto l’an¬ 
no (per esempio .85) ai fini di un’esat¬ 
ta lettura della data per lo specifico 
anno, e il file d’intestazione contiene il 
nome di ogni file valido per quell'an¬ 
no. Questo fatto genera una gran 
quantità di file, ma la maggior parte di 
essi non è estesa e può esser letta rapi¬ 
damente. Vi conviene usare un unico 


4730 PRINT 'PAZIENTE....DATA.ONORARI...COSTI * 

4740 PRINT 'NOME REM 

34 SPAZI 

4750 POR I = 1 TO 40: PRINT OHM (95):: NEXT : PRINT CHR* 
(13): UTAB 6: POKE 34,5: POR X = B TO E 
4760 REM 

4770 IF C2X = 1 THEN 4810: REM NON RILEGGE IL FILE 
4780 FL* = FL$(X): POKE 34,23: 

4790 GOSUB 5930: POKE 34.5: REM LEGGE FILE 
4800 IF NIX = 0 THEN 4900 

4810 PRINT LEFT* < LEFT* <FL*IX>, LEN <FL*(X)) - 3),10): 
4820 POR Y = 1 TO NIX 

4830 M = UAL (H*(Y,R1)) + M:N = UAL <M*<Y,R2)> + N 
4840 IF C1X = 1 THEN PRINT TAB( 12): LEFT* <M*(Y,2),5); T 
AB( 41 - LEN (M*<Y,R2)));M*(Y.R2) 

4850 IF C1X = 2 THEN PRINT TABI 12): LEFT* (M*<Y,2).5); T 
AB< 31 - LEN (M*(Y,Rl)));M*(Y.Rl) 

4860 IF C1X = 3 THEN PRINT TABI 12): LEFT* (M*(Y,2),5); T 
AB< 31 - LEN (M*<Y,R1)));M*IY,RÌ) TAB< 41 - LEN <M*( 
Y.R2)));M*(Y,R2) 

4870 Ji = J1 4 1: REM CONTA PER 15 LINEE 

4880 IF J1 = 15 THEN J1 = 0: 0N C1X GOSUB 4930,4960,4990 

4890 NEXT Y 

4900 NEXT X 

4910 0N C1X GOSUB 4930,4960,4990 
4920 GOTO 4530 

4930 HTAB 32: PRINT '-* 

4940 X* = STR* (N): GOSUB 940: PRINT TABI 41 - LEN (X*)) 

4950 (jOSUB 5020: RETURN 
4960 HTAB 22: PRINT '.* 

4970 X* = STR* IN): GOSUB 940: PRINT TABI 31 - LEN (X*)) 
4980 éoSUB 5020: RETURN 

4990 HTAB 22: PRINT '.TABI 32)'-' 

5000 X* = STR* IN): GOSUB 940: PRINT TABI 31 - LEN (X*)) 
:X*::X* = STR* IN): GOSUB 940: PRINT TABI 41 - LEN 
(X*)):X* 

5010 GOSUB 5020: RETURN 

5020 GOSUB 1060: HTAB 1: UTAB 6: CALL - 958: UTAB 5: PRINT 
CHR* (13):: RETURN 
5030 GOTO 4530 
5040 REM 

5050 REM *»*»«*»»»»«****»» 

5060 REM * * 

5070 REM * CREA NUOUO FILE * 

5080 REM * * 

5090 REM «Hi****»**»***»** 

5100 REM 

5110 IF NX = > 9 THEN GOSUB 2620: REM TROPPI FILE 
5120 TEXT : CALL 857:M2 = CS: GOSUB 690: GOSUB 720 
5130 UTAB 23: PRINT 'INTRODUCI NOME PERSONA ':: IWERSE : P 
RINT '<RTN>'; : NORMAL : PRINT ' PER FINIRE' 

5140 UTAB 24: PRINT 'INTRODUCI ';: INUERSE : PRINT 'FlLES'j 
: NORMAL : PRINT ' PER NOMI FILE CORROTTI'; 

5150 POKE 35,20: POKE 34,2 

5160 UTAB 10: HTAB 1:ER = 0: PRINT 'INTRODUCI NOME DEL NU0U 
0 FILE': PRINT : HTAB 1: PRINT CALL - 868: INP 

UT ”:FL* 

5170 IF LEFT* (FL*,5) = 'FILES' THEN GOSUB 5330: GOTO 516 
0 

5180 IF FL* = " THEN 5310 
5190 FOR I = 1 TO LO! (FL*) 

5195 IF I ASC I MID* (FL*.I,1)) < 65 FWD ASC I MID* (FL*,I 
,1» 1 > 46) OR ASC I MID* <FL*.I.l» ) 90 THEN HTA 
6 1: UTAB 20: CALL - B68: PRINT ‘SÓLO MAIUSCOLE': : GO 
SUB 1030:ER = 1 : HTAB 1 : CALL - 868:1 = LEN (FL*): N 
EXT : GOTO 5160 
5200 NEXT ! 

5210 X* = FL*:M2 = 1: GOSUB 760: IF ER = 1 THEN 5160 
5220 FL* = FL* * '.' + YR* 


5230 IF NX I 1 THEN 5270 
5240 FOR I = 1 TO NX 

5250 IF FL*(I) = FL* THEN CALL 65338: GOSUB 700: UTAB 10: 
HTAB 6: PRINT 'NOME FILE DUPLICATO—REINTRODUCI' : GOSU 
B 1030: GOSUB 710:1 = NX: NEXT : GOTO 5160 
5260 NEXT I 
5270 NX = NX * 1 
5280 FL4INX) = FL* 

5290 NIX = 0: GOSUB 6020: IF NX = 9 THEN 5310: REM SE 9 FI 
LE. SALUA INTESTAZIONE 
5300 GOSUB 700: GOTO 5110 
5310 FL* = 'INTESTAZIONE' + '.' * YR*: GOSUB 5860 
5320 GOTO 290 

5330 IF NX = 0 THEN RETURN 

5340 POKE 35,22: UTAB 14: HTAB 1 

5350 FOR J = 1 T0 NX STEP 3 

5360 PRINT LEFT* (FL*(J), LEN <FL»(J)) - 3); 

5370 IF J + 1 < = NX THEN PRINT TABI 14) LEFT* <FL*(J ♦ 

1) , LEN (FL*(J + !)) - 3): 

5380 IF J + 2 < = NX THEN PRINT TABI 26) LEFT* (FL*(J ♦ 

2) , LEN (FL*(J ) 2)) - 3) 

5390 NE)U : POKE 35,13: RETURN 
5400 REM 

5410 REM a**»*»**»*»*»*»* 

5420 REM * * 

5430 REM * ELIMINA FILE * 

5440 REM * * 

5450 REM **************** 

5460 REM 

5470 TEXT : CALL B57:M2 = 6: GOSUB 690: GOSUB 720 
5480 IF NX = 0 THEN 2510: REM NESSUN FILE 
5490 GOSUB 2520 
5500 UX = PEEK (37) 

5510 HTAB 1: UTAB 23: PRINT 'INTRODUCI NOME FILE DA ELIMINA 
RE': PRINT : PRINT ’<':: IWERSE : PRINT "RTN" ; : NORItt 
L : PRINT ') PER FINIRE';: UTAB UX ♦ 3 
5520 HTAB 1: PRINT ' NOME FILE ==> ';: CALL - 868: INPUT 

' ' ; I* 

5530 IF I* = " THEN MI = 0:M2 = 0: GOTO 290 
5540 U = UX ♦ 3:1*11) = I*: GOSUB 2290 
5550 IF ER = 1 THEN ER = 0: GOTO 5520 
5560 CALL 857: GOSUB 690: GOSUB 720 
5570 UTAB 10: HTAB 1: PRINT 'UUOI UERAMENTE ELIMINARE IL FI 
LE ': PRINT : HTAB 19 - LEN (I*) / 2: IMMERSE : PRINT 
I*;: NORMAL : PRINT ' ?': PRINT : HTAB 16: PRINT *(S/ 
N)' 

5580 UTAB 16: HTAB 17: GET X*: POKE - 16368,0: IF X* = ’S' 
THEN 5600 
5590 GOTO 5470 

5600 FL* =]*♦'.'+ YR*: PRINT 
5610 GOSUB 6100: REM ELIMINA IL FILE 
5620 IF I = NX THEN 5660 
5630 FOR J = I TO NX 
5640 FL*(J) = FL»(J + 1) 

5650 NEXT J 
5660 NX = NX - 1 

5670 FL* = 'INTESTAZIONE' * V * YR*: GOSUB 5860 
5680 MI = 0:M2 = 0: GOTO 290 

5690 TEXT : GOSUB 710: UTAB 10: HTAB 18: PRINT 'FINE': END 


5700 

REM 




5710 

REM 

**************** 

5720 

REM 

* 


* 

5730 

REM 

* 

ROUTINE 

X 

5740 

REM 

* 

DISCO 

* 

5750 

REM 

* 


* 

5760 

REM 

**************** 

5770 

REM 





5780 0NERR GOTO 6310 

5790 PRINT D*;'BL0AD SCROLLOFF': 0NERR GOTO 6260 
5800 PRINT D*;'0PEN ';FL* 

5810 PRINT D*;'READ ' ;FL*: INPUT NX (continua) 
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DORLAND ITALIANA 



L’arte di decidere richiede strumenti 

di sintesi veloci e affidabili, capaci di sintetizzare 

i singoli punti in un unico quadro. 



Più difficili sono le decisioni che devi prendere, 
più importante è che tutti gli elementi siano organiz¬ 
zati in maniera sintetica e comprensibile. 

Il tuo personal, anche se è certamente in grado 
di fornirti tutti i dati di cui hai bisogno, non è sempre 
capace di esporteli nella forma in cui ti servono. 

Strumenti decisionali insostituibili 

Per questo la Hewlett-Packard, all’avanguardia 
nell’elettronica mondiale, ti propone i suoi plotter, che 
organizzano fatti e cifre 
complesse in grafici co¬ 
lorati, facili da compren¬ 
dere. Con i plotter HP 
tendenze di mercato, 
analisi di prodotto, pre¬ 
visioni finanziarie 
prendono corpo in diagrammi precisi, curve colorate, 
istogrammi, grafici circolari, accelerando i tuoi pro¬ 
cessi decisionali e rendendo le tue presentazioni, 
meeting, rapporti, più incisivi ed efficaci. Troverai i 
plotter HP in tre versioni: a 8 e 6 penne, nel formato 
UNI A3 ed A4, ed a 2 penne, nel formato UNI A4. 

Compatibili con tutti i personal 

E potrai usarli col tuo personal, anche se non hai 
un HP, infatti i nostri plotter sono compatibili con 












tutti i principali personal sul mercato. 

Se vuoi saperne di più ti basterà compilare in 

ogni sua parte 
l’accluso coupon: 
riceverai, senza 
impegno, una 
documentazione 
dettagliata sui 
plotter HP e il loro 
impiego. 


Hewlett-Packard Italiana S.p.A. 

Via G. Di Vittorio 9 - 20063 Cernusco Sul Naviglio 
Milano-Tel. 02/923691 


rSe vuoi saperne di più sui plotter HP 

I invia questo tagliando a Hewlett-Packard Italiana S.p.A. ■ 

Marketing Communication C.P. 10190,20100 Milano. 

| Nome e Cognome _ | 

| Società _I | 

Indirizzo _ 

HP-soluzioni produttive 

HEWLETT 
PACKARD 












5820 

1F NX < 1 THEN 5840 

4240 

DATA 11,5,25,27,7,24,1,4 

DATA 'MENU PRINCIPALE-RECORD MEDICI’/ AGGIUNGERE U 

5830 

FOR I = 1 T0 NX: INPUT FL*(1): NEXT 

4250 

5840 

PR1NT W/CLOSE 1 ;FL$ 


N RECORD '/ EDITARE UN RECORD' 

CALL - 3288: IF PEEK (222) = 5 AND LEFT$ (FL*,12> = 

5850 

RETURN 

4240 

5840 

PRINT D$/0PEN ':FU 


■INTESTAZIONE' THEN 4280 

5870 

PRINT M;"URITE ;FL$ 

4270 

GOTO 4310 

5880 

PRINT NX 

4280 

PRINT W/URITE'/U: PRINT 0: REM NX 

5890 

FOR I = 1 TO NX 

4290 

PRINT W/CLOSE':FL* 

GOTO 140: REM RILEGGE IL FILE 

5900 

PRINT FL$(I): NEXT 

4300 

5910 

PRINT D4/CL0SE ’;FU 

4310 

CALL - 3288: TEXT : HOME ; CALL 45338: CALL 45338: VT 

5920 

RETURN 


AB 8: FOR I = 1 TO 40: PRINT NEXT : PRINT 

5930 

PRINT DI:’OPEN ";FLt 

HTAB 1 : CALL - 848 

4320 

ER$ = " 

5940 

4330 

IF PEEK (222) = 9 THEN ERi = * DISK FULL ERROR ': GOT 

5950 

PRINT Dt/READ ’:FU 

INPUT NIX 


0 4410 

5940 

4340 

IF PEEK (222) = 8 THEN ER$ = ' INPUT/OUTPUT ERROR-CHE 

5970 

IF NIX = 0 THEN 4010 


CK DRIVE DOOR ': GOTO 4410 

5980 

FOR I = 1 TO NIX 

4350 

IF PEEK (222) = 4 THEN ER$ = ' FILE BINARIO NON SUL D 

5990 

FOR J = 1 TO 8 


ISCHETTO ': GOTO 4420 

4000 

INPUT M$(l,J): NEXT : NEXT 

PRINT D$/CL0SE': RETURN 

4340 

IF PEEK (222) = 4 THEN ER* = ' DISK WRITE-PROTECTED ' 

4010 


: GOTO 4410 

4020 

PRINT D$/OPEN ■:FL« 

4370 

IF PEEK (222) = 11 THEN ER$ = ' SYNTAX ERROR ': GOTO 

4030 

PRINT W/URITE ;FL$ 


4390 

4040 

PRINT NIX 

4380 

ERI = ' CONSULTA MANUALE CODICE ERRORI ': GOTO 4410 

4050 

FOR I = 1 TO NIX 

4390 

HTAB (40 - LEN (ERI)) / 2: PRINT ER$: PRINT : PRINT ' 

4040 

FOR J = 1 TO 8 


A LINEA '; PEEK (218) * PEEK (219) * 254 

4070 

PRINT M*(I.J): NEXT : NEXT 

PRINT W/CLOSE "jFL* 

4400 

GOTO 4450 

4080 

4410 

HTAB (40 - LEN (ER$)) / 2: PRINT EM: PRINT 'ERRORE N 

4090 

RETURN 


. ': PEEK (222)/ A LINEA PEEK (218) + PEEK (219) 

* 254: GOTO 4430 

4100 

PRINT W/OPEN ";FLt 


4110 

PRINT D$/CLOSE ‘.'FU 

PRINT W/DELETE ';FL$ 

4420 

HTAB (40 - LEN (ER*)> / 2: PRINT EW: PRINT : VTAB 22 

4120 


: PRINT 'ERRORE FATALE-NON POSSO CONTINUARE' : END 

4130 

RETURN 

4430 

PRINT 'PREGO CORREGGI LA SITUAZIONE DESCRITTA': GOTO 4 

4140 

CALL 913 


450 

4150 

M2 = CS: IWERSE : GOSUB 490: GOSUB 720: POKE 34,4: RE 
STORE : GOSUB 130 

4440 

PRINT 'ERRORE N. '; PEEK (222)/ IN LINE *; PEEK (218) 

+ PEEK (219) * 254 

4140 

TEXT : CALL 748: GOTO 290 

4450 

PRINT : FOR I = 1 TO 40: PRINT NEXT 

PRINT : PRINT 'PREMI UN TASTO PER CONTINUARE'j : GET X$ 

4170 

REM MENU' PRINCIPALE MU$(0,M2) 

4440 

4180 

DATA 1 MENU' PRINCIPALE-APPLIMEDIC ',■INTRODURRE 

DATI ", "VEDERE ATTUALI HOMI PA21ENTI *. "CERCARE./ORD1NAR 
E/EDITÀRE RECORD' 'TOTALI SPESE 1 ."CREARE NUOVO FILE PA 
ZIENTE"/ELIMINARE FILE PAZIENTE'/CAMBIARE AWI'/USC 


: POKE - 14348,0: TEXT : HOME 


4470 

IF MI = 0 THEN TEXT : HOME : GOTO 290 


4480 

CS = PEEK (972): GOTO 510: REM TORTO ALL'ULTIMA OP 

ZI ONE FATTA SUL MENU' 


IRE DAL PROGRAFMA' 

4490 

REM DUMP SCHERMO 

4190 

DATA 'NONE PAZIENTE-'/DATA DELLA CURA (GG/MM)-', 

■DR./CLINICA-'/DIAGNOSI-’ 'ONORARIO-'/PRESCRIZIONE-' 
/QUANTITÀ'-’.‘COSTO PRESCRIZIONE-' 

Data 'esfminare/editare record individuali'/esplorare 

CtflPO DATI'/LISTARE PRESCRIZIONI PAZIENTE*/TORNARE 

AL MENU' PRINCIPALE' 

4500 

GOTO 4520 


4510 

FOR F = P TO P + 39:A = PEEK (F):A = A * (A ( 32) * 1 

92:A = A MA < 44) * 128:A = A + (A < 94) * 44:A = A 

4200 


4 (A < 128) * 44:A = A MA < 140) * 44: PRINT CHR$ ( 

A) : : NEXT F: PRINT : RETURN 

PRINT : PRINT OHM <4)'PRM': PRINT CHR$ <9)'80N' 


4520 

4210 

DATA 'COSTI PRESCRIZIONI'/ONORARI'/TOTALI PER EN 

4530 

FOR P = 1024 TO 1920 STEP 128: GOSUB 4510: NEXT P 


TRAM8I"/TORNARE AL MENU' PRINCIPALE" 

DATA ‘PER UN SINGOLO PAZIENTE'/PER OGNI PAZIENTE' 

4540 

FOR P = 1044 TO 1940 STEP 128: GOSUB 4510: NEXT P 

4220 

4550 

FOR P = 1104 TO 2000 STEP 128: GOSUB 4510: NEXT P 

4230 

DATA 17,28,13,11,12,14,13,22 

4540 

PRINT CHRt <4)'PRttO' : RETURN 


SCROLLOFF 


*300.3CB 

0300- A9 18 85 FE A2 17 8A 20 
0308- CI FB A5 28 85 04 A5 2? 
0310- 85 07 CA SA 20 CI FB A0 
0318- 27 B1 28 91 04 88 10 F? 
0320- E0 00 FO 02 10 E4 AO 27 
0328- A9 AO 91 28 88 10 FB C4 
0330- FE DO DI 40 A9 28 85 FE 
0338- A2 00 AO 00 8A 20 CI FB 
0340- C8 B! 28 88 91 28 C8 CO 
0348- 27 DO F5 A9 AO 91 28 EB 
0350- EQ 18 DO E4 C4 FE DO EO 
0358- 40 AO 14 84 FE A2 00 AO 
0340- 12 SA 20 CI FB B1 28 C8 
0348- 91 28 88 FO 03 88 10 F5 
0370- A9 AO 91 28 AO 15 B1 28 
0378- 88 91 28 C8 CO 27 FO 03 
0380- C8 10 F3 A9 AO 91 28 E8 
0388- EO 18 DO D3 C4 FE DO CD 
0390- 40 A2 28 84 FE A2 00 8A 
0398- 20 CI FB AO 01 B1 28 88 
03A0- 91 28 C8 CO 27 FO 03 C8 
03A8- 10 F3 A9 AO 91 28 E8 8A 
03B0- 20 CI FB 88 B1 28 C8 91 
03B8- 28 88 FO 02 DO F5 A9 AO 
03C0- 91 28 E8 EO 18 DO DO C4 
03C8- FE DO CA 40 


CERCARE-- ORDIMARE- ED I TARE RECORD 
ANNO = 1985 




ESPLORARE CAMPO DATI 
LISTARE PRESCRIZIONI PAZIENTE 
TORNARE AL MENU' PRINCIPALE 


IBS PER SCEGLIERE- 
PUOI USARE ANCHE L 


ai PER ESEGUIRE 
CCE SU 0 GIU' 


Il sottomenù dell’opzione cercare/ordinare/editare record, che serve per 
controllare! dati. 


mm 
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TAVOLA 1 

■ VARIABILI NUMERICHE E STRINGA 

Variabili 

numeriche 

Funzione 

MI 

Variabile menù 0-9) 

M2 

Voce menù (0-8) 

HT 

Tabulazione orizzontale per le voci del menù 

s 

Numero delle voci di menù nel set da visualizzare 

cs 

Scelta corrente posizione del cursore (^12) 

05 

Scelta precedente posizione del cursore 

LXO 

Lunghezza della linea di input 

hxo 

Tabulazione orizzontale per la linea di input 

m 

Anno del File che interessa 

w. 

Numero dei nani di file nel -file d'.intestazione 

C1Z|CZ!,C3X 

Valori di conservazione temporanei di CS 

NI'/. 

Numero dei record in ciascun File 

NP/. 

Flag che denota il nuovo nome di file 

J1 

Contatore per le corrispondenze totali di esplorazione 

R1,N 

Spese mediche totali 

R2,N 

Spese farmaceutiche totali 

HU 

Spaziatura orizzontale per i menù 

VSS 

Spaziatura verticale per i menù 

ed y. 

Flag modo edit 

ER 

Flag d'errore d'introduzione dati 

Variabili 

Stringa 

Funzione 

YR$ 

Il valore dell'anno corrente 

FL$ 

File in corso di lettura o scrittura 

FIV/.O 

Nomi di tilt nel file d'intestazione 

I*(M2) 

Variabile di input (temporanea) 

HI!) 

Variabili di record nell'ambito di ogni file 

Mll$<0,M2) 

Stringhe per le selezioni sul menù principale e per i 
titoli di intestazione nei vari moduli 

MU«t,M2) 

Stringhe per la routine di input dati 

MIMMI ,M2) 

Stringhe per tutte le altre selezioni del menù 
nell'ambito del programma (Ml=2 a 9) 


dischetto esclusivamente per questo 
programma, in modo da poter vedere 
facilmente i file che si trovano sul di¬ 
schetto e impedire che nomi prove¬ 
nienti da altre fonti vengano duplicati 
nei file di APPLIMEDIC. 

La maggior parte delle routine di 
intrappolamento degli errori e di con¬ 
trollo dell’introduzione è situata nelle 
linee 690—1240. Esse sono sistemate 
più ai fini della limpidezza che della 
velocità, dato che alcune sono usate 
solo nell’ambito di altre specifiche 
routine: il vantaggio di trovarle in uno 
stesso punto del programma rende tol¬ 
lerabile il costo di una lieve perdita di 
efficienza. 

Personalizzazione 

Se per qualche motivo non vi piac¬ 
ciono gli HOME d’effetto, potete eli¬ 
minarli individuando tutti i CALL 
768, 820, 857 e 913 e sostituendoli con 
istruzioni HOME. Dovete inoltre eli¬ 
minare la linea 5790 e non digitare il 
codice macchina di SCROLLOFF. 

Volendo potete personalizzare an¬ 
che l’opzione di stampa sullo schermo. 
Per conservare la compatibilità con 
varie interfacce di stampante (sia pa¬ 
rallele sia seriali) è stata impiegata la 
routine in Basic di stampa su schermo 
delle linee 6500—6560. Se volete, po¬ 
tete sostituirla con una vostra routine 
più veloce, in linguaggio macchina. 
Inoltre se l’interfaccia con la stampan¬ 
te non è nello slot uno, dovete cambia¬ 
re il riferimento allo slot nella linea 
6520. 


Può anche darsi che occorrano più 
di nove file di pazienti. In tal caso do¬ 
vrete modificare il menù delle linee 
290—590. Sarà bene che consultiate 
Applicando n. 15 per comprendere 
meglio questa sezione prima di modifi¬ 
carla. Sostanzialmente, comunque. 


dovrete modificare l’istruzione boo- 
leana contenuta nelle istruzioni 
VTAB che si trovano fra quelle linee, 
vale a dire OS * (S > 10). Così ridurre¬ 
te a spaziatura semplice le voci del 
menù, ottenendo in tal modo spazio 
sullo schermo per altri pazienti soltan¬ 
to se S => 10. Occorrerebbe inoltre in 
questo caso cambiare il livello di deli¬ 
mitazione di N*% a linea 5110 e a linea 
2630, che dice quanti file sono permes¬ 
si. Dovete cambiare in conformità an¬ 
che la linea 2320. 

Le variabili 

Nella tavola 1 è visibile un elenco 
parziale delle variabili numeriche e 
stringa utilizzate in APPLIMEDIC. 
La lista non è esauriente, ma com¬ 
prende le variabili più importanti per 
la comprensione del programma. Non 
sono comprese alcune variabili di im¬ 
piego generale e variabili secondarie 
usate come flag. 


Questo programma è disponibile su 
dischetto. L'elenco, i prezzi e le 
modalità d’ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 

- ¥ 


PAZIENTE . . 

TOTALI 
. . DATA . 

SPESE 

.ONORARI . 

.COS1I 

NOME 






Selezionando dal menù principale l'opzione totali spese, se ne può aver la 
lista complessiva o individuale 
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PER IL TUO APPLE //e & //c. 


Vi piacciono le regate? O preferite esplorare le caverne dell’Olimpo? Oppure vorreste 
avere sul vostro schermo il fantastico gioco della scimmia che scappa arrampicandosi sulle 
pareti lisce di un grattacielo? Siete invece tipi riflessivi e vi dilettate di musica? Non 
preoccupatevi, qui c’è sicuramente quello che fa per voi. Per gli amanti di tanti giochi tutti 
insieme è disponibile una raccolta. Per chi vuole migliorare le proprie capacità di 
programmatore, ecco i trucchi del Basic su dischetto. E tante altre offerte, a prezzi eccezionali. 



BASIC TRICKS FOR THE APPLE. 

35 routine che renderanno molto 
più professionali i vostri pro¬ 
grammi in Basic e che vi sarà 
facilissimo imparare utilizzando il 
manuale e il dischetto offerti in 
elegante confezione a sole 
60.000 lire. 


SPUD e MUG SHOT. Il primo po¬ 
ne due giocatori in antagonismo 
tra loro, il secondo può essere 
giocato da un solo giocatore fino 
a quattro giocatori. Grafica in alta 
risoluzione spettacolare. Richie¬ 
de l’uso delle paddle. Dischetto 
con programma e manuale offerti 
in elegante confezione a sole 
50.000 lire. 


PEN PAL. Un word processor 
che può sviluppare fino a 254 
colonne per riga, con possibilità 
di serali orizzontale e verticale. 
Giustificazione, numerazione 
delle pagine, intestazioni. Cerca 
e rimpiazza testo. Possibilità di 
editing di programmi in Basic. 
Predisposizione per invio via mo¬ 
dem dei testi. Dischetto con pro¬ 
gramma e manuale in elegante 
confezione a 60.000 lire. 



INSTANT RECALL. Un potente 
Data Base i cui file singoli posso¬ 
no superare i 28.000 caratteri. 
Accesso simultaneo a 8 file, per 
un totale di oltre 229.000 caratte¬ 
ri. Ogni file può essere caricato in 
5 secondi. Ricerca velocissima. 
Campi determinabili dall'utente. 
Possibilità di editing sofisticato. 
Dischetto e manuale offerti in ele¬ 
gante confezione a sole 60.000 
lire. 



APPLE GAMES. 11 giochi: Flip-Flop 
Mastermind, Towers, Sherlock's home 
Attack of thè Zargons, Phaser Practice 
Acey-Ducey, Big government, Tic-Tac 
Toe, Qubic, Depth charge. E tre prò 
grammi di utilità: Shapetable generator 
Opening ceremonies, Master catalog 
Per alcuni giochi sono richieste le padd 
le o il joystick. Dischetto con program 
ma e manuale in elegante confezione : 
60.000 lire. 



APE ESCAPE. Una scimmia è 
fuggita dallo zoo e si arrampica di 
finestra in finestra lungo le pareti 
di un grattacielo. Elicotteri le ron¬ 
zano attorno e il guardiano dello 
zoo la insegue. Riuscirà a rag¬ 
giungere il tetto e la libertà? Gra¬ 
fica a colori. Dischetto con pro¬ 
gramma e manuale in elegante 
confezione a sole 50.000 lire. 


BERMUDA RACE. Un esaltante 
regata nella quale voi siete al co¬ 
mando di una barca con quindici 
uomini d'equipaggio. Tutto di¬ 
pende dalla vostra abilità di skip¬ 
per. Il programma è ampiamente 
documentato su Applicando n. 
17, Giugno 1985. Dischetto con 
programma e manuale in elegan¬ 
te confezione a 50.000 lire. 


CAVES OF OLYMPUS. Oltre a 
una grafica a colori ultraprofes¬ 
sionale, questo gioco di abilità 
sfodera suoni ed effetti speciali di 
qualità nettamente superiore. Di¬ 
vertente, intrigante e irresistibile. 
Dischetto con programma e ma¬ 
nuale In elegante confezione a 
sole 50.000 lire. 


MUSIC GAMES. 12 programmi 
educativi e divertenti sul filo delle 
7 note. Senza bisogno d'altro, il 
vostro Apple si tramuterà in un 
docile strumento musicale dal 
quale imparare e col quale diver¬ 
tirsi. Sono richieste le paddle o il 
joystick. Dischetto con program¬ 
ma e manuale in elegante confe¬ 
zione a sole 50.000 lire. 


REGATTA. Un gioco entusiasmante cl 
farà impazzire marinai esperti e mei 
esperti di qualunque età. Ogni conci 
rente ha a disposizione una barca e t 
circuito. Poi ci sono i venti, gli ostaco 
gli imprevisti... Una grafica realistica 
farà volare tra le onde. Il programmt 
ampiamente documentato su Applica 
do n. 17, Giugno 1985. Dischetto ci 
programma e manuale in elegante co 
lezione a sole 50.000 lire. 


Compilare e spedire il tagliando qui sotto a Applicando, Edltronica Srl., Corso Monforte 39, 20122 Milano 


Sì! Inviatemi subito, senza aggravio di spese 
postali, il o i programmi contrassegnati con 
una crocetta. 

□ REGATTA. 50.000 lire. 

□ CAVES OF OLYMPUS. 50.000 lire. 

□ APE ESCAPE. 50.000 lire. 

□ MUSIC GAMES. 50.000 lire. 

□ APPLE GAMES. 60.000 lire. 

□ BASIC TRICKS FOR THE APPLE. 60.000 lire. 

□ BERMUDA RACE. 50.000 lire. 

□ INSTANT RECALL. 60.000 lire. 

□ PEN PAL. 60.000lire. 

□ SPUD e MUG SHOT. 50.000 lire. 


Cognome.Nome . 

Via . Cap. 

Città . Prov. 

Scelgo la seguente formula di pagamento: 

□ allego assegno di L . non trasferibile intestato a Editronica srl. 

□ allego ricevuta versamento di L.sul cc/p n. 19740208 intestato a 

Editronica srl - Corso Monforte, 39 - 20122 Milano 

□ pago fin d'ora l'importo di L .con la mia carta 

di credito BankAmericard N. 

scadenza.autorizzando la Banca 

d'America e d'Italia ad addebitarne l'importo sul mio conto BankAmericard. 


Data 


Firma 



































































Gli manca la parola? Ora 
non più! Con una piccola 
routine in linguaggio 
macchina il vostro Apple 
Il potrà finalmente 
pronunciare tutto quello 
che pensa e tutto quello 
che vorrete. Non è il 
primo che riesce a fare 
questo, ma di certo è fra i 
pochi programmi di 
sintesi vocale 
completamente 
trasparenti all’utente e di 
estrema semplicità 
d’uso. 


DOS 3.3 

filli 


pili 

APPI E //» 
APPLE //é H 

pili 

uni 


Apple, appiè 
delle mie brame... 


C he cos’è una parola? Può essere 
considerata come una rapidissi¬ 
ma successione temporale di due tipi 
di eventi sonori elementari: il silenzio 
e un qualcosa che non è silenzio e che 
per comodità si può chiamare click. E 
si può utilizzare questo concetto, certo 
grossolano e magari scientificamente 
inaccettabile, ma estremamente sem¬ 
plice e utile, per intenderci quando 
parliamo di voce, di parole pronuncia¬ 
te, di suono in generale. 

Il problema della sintesi vocale da 
parte di un computer può essere scom¬ 
posto in tre momenti distinti: analisi 
della voce umana, cioè della successio¬ 
ne di silenzi e click che la costituiscono 
(FLOWCH.2); memorizzazione op¬ 
zionale del risultato di tale analisi 


(FLOWCH.3); resintesi della voce 
umana, cioè della successione di silen¬ 
zi e click a partire dall'analisi 
(FLOWCH.4). 

Analisi della voce 

La fonte sonora potrà essere la voce 
registrata su nastro magnetico, o even¬ 
tualmente in diretta tramite microfo¬ 
no; il vostro Apple li dovrà ascoltarla 
(cioè leggere il segnale presente all'in¬ 
gresso per il registratore a cassette = 
locazione $C()60 = TAPEIN) e dovrà 
essere in grado di capire se sta udendo 
un silenzio o un click. 

Nel caso del silenzio, il valore pre¬ 
sente in TAPEIN non cambierà di se¬ 


gno. mentre cambierà di segno nel ca¬ 
so che compaia un click. Come a dire 
che un click farà cambiare da II a 1 o 
viceversa il bit più a sinistra (bit 7) di 
TAPEIN. 

Nel listato 1 potete notare (righe 26. 
27. 28) che il computer legge la loca¬ 
zione TAPEIN e mette nella locazione 
NEW il valore trovatovi, dopodiché 
confronta questo valore con quello 
che aveva letto la volta precedente e 
che si trova ora nella locazione OLD. 
Se questi valori hanno segno diverso 
(cioè è diverso il bit 7), il computer 
capisce di aver sentito un click. 

11 confronto dei segni viene eseguito 
tramite una operazione di OR esclusi¬ 
vo fra NEW e OLD che accende il flag 
segno sul registro di stato nel caso che 
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NEW e OLD contengano valori diver¬ 
si per segno; il programma mette poi 
in OLD il valore che era in NEW e 
riprende a leggere TAPEIN. 

Un punto critico da considerare è la 
frequenza con cui il computer esplora 
la locazione TAPEIN. Se lo fa una 
volta al secondo l'analisi del suono sa¬ 
rà pessima. Se Io fa 3.000 volte al se¬ 
condo sarà buona. Se lo fa con fre¬ 
quenza maggiore, meglio ancora. Bi¬ 
sogna però tenere presente che all'au- 
mentare della frequenza migliora sì la 
qualità dell'analisi del suono, ma tale 
analisi, per essere memorizzata, ri¬ 
chiederà più memoria. 

Se considerate la parte del program¬ 
ma che sintetizza la voce mentre la sta 
ascoltando da registratore, senza me¬ 
morizzarne la codifica (Reai Time 


Sound), è chiaro che in questo caso il 
limite all'accuratezza di tale analisi 
non è imposto da un limite di memoria 
(non c’è infatti nessun consumo di me¬ 
moria), bensì dalla velocità con cui il 
computer riesce a leggere la locazione 
TAPEIN e il limite a tale velocità di 
lettura è posto dal tempo che il compu¬ 
ter impiega a eseguire le 9 o 10 istru¬ 
zioni di linguaggio macchina che costi¬ 
tuiscono questa parte di programma. 

L'esecuzione di queste istruzioni ri¬ 
chiede 27 cicli macchina, pari a circa 
27 milionesimi di secondo, per cui il 
computer riesce a esplorare la locazio¬ 
ne TAPEIN 37.000 volte al secondo: 
come a dire che la più alta frequenza 
intelligibile e riproducibile dal compu¬ 
ter in reai time è di 37.000 Hertz (e non 
è poco!). 


Se considerate invece la parte di 
programma che analizza la voce e ne 
memorizza la codifica (Recording), la 
frequenza di lettura di TAPEIN varia 
in funzione della durata del ciclo di 
ritardo (righe 52-55 del listato 1), a sua 
volta dipendente dal valore messo in 
SPEED. 

Se SPEED vale 1 avremo la massi¬ 
ma frequenza di esplorazione di TA¬ 
PEIN, la massima accuratezza nella 
codifica del parlato, ma anche il massi¬ 
mo consumo di memoria; al contrario, 
se SPEED vale 255, avremo i minimi 
valori di tutti questi parametri. 

Un compromesso ragionevole tra 
accuratezza del parlato e consumo di 
memoria può ottenersi con SPEED = 
5. Per tale valore, la massima frequen¬ 
za sonora riproducibile risulta di circa 


LISTATO 1. Disassemblato del file binario "ascolta & parla”creato dal listato 2 


S0URCE FILE: ASCOLTA 4 PARLA 


0294:A5 

04 

52 AGAIN1 

LDA 

SPEED 

02FC:EA 

106 

NOP 


0000: 

1 




0298:85 

05 

53 

STA 

DELAY 

02FD:EA 

107 

NOP 


0000: 

2 




0 29A:C4 

05 

54 UAIT1 

DEC 

DELAY 

02FE:EA 

108 

NOP 


0000: 

3 

«ASC0LTA4PARLA* 

029C:D0 

FC 

55 

BNE 

HAITI 

02FF:EA 

109 

NOP 


0000: 

4 




029E:AD 

60 CO 

54 

LDA 

TAPEIN 

0300: 

110 ; 



0000: 

5 




02A1:85 

0? 

57 

STA 

NEU 

0300: 

111 : 



- NEXT 0BJECT F 

LE NAME IS 

ASCOLTA 

02A3:45 

03 

58 

EOR 

OLD 

0300: 

112 : TALKING 


4 PARLA.OBJO 




02A5:30 

08 

59 

BMI 

CLICK1 

0300: 

113 ; 



0240: 

4 


0RG 

$260 

02A7:10 

00 

60 

BPL 

SYL1 

0300: 

114 j 



0000: 

7 P01NTL 

FQII 

$00 

02A9:EA 


61 SYL1 

NOP 


0300:A9 05 

115 

LDA 

«5 

0001 : 

8 P01NTH 

FON 

$01 

02AA:18 


62 

CLC 


0302:85 04 

116 

STA 

SPEED 

0002: 

9 NEW 

FQII 

$02 

02AB:26 

04 

63 

ROI 

BYTE 

0304:A0 00 

117 PARLA 

LDY 

#$00 

0003: 

10 OLD 

FQII 

$03 

02AD: 50 

08 

64 

BVC 

NEUBIT1 

0304:81 00 

118 PI 

LDA 

(POINTL),Y 

0004: 

1! BYTE 

EQU 

$04 

02AF:AD 

30 CO 

65 CLICK1 

IDA 

SPEAKER 

0308:85 04 

119 

SIA 

BYTE 

0005: 

12 0ELAY 

FQII 

$05 

0282:38 


46 

SFC 


030A:C9 FF 

120 

CMP 

#$FF 

0006: 

13 SPEED 

FQII 

$06 

02B3:26 

04 

67 

Riti 

BYTE 

030C:F0 30 

121 

BEQ 

END 

C010: 

14 STR0BE 

EQU 

$C010 

0285:50 

00 

68 

BVC 

NERBITI 

030E.-A2 07 

122 

LDX 

#$07 

C000: 

15 KEYB0AR0 EQU $C00O 

02B7:A5 

0? 

69 NEUBIT1 

IDA 

NEU 

0310:A5 06 

123 AGAIN2 

LDA 

SPEED 

CO 30: 

16 SPEAKER EQU 

$C030 

02B9:85 

03 

70 

STA 

OLD 

0312:85 05 

124 

STA 

DELAY 

CO 40: 

17 TAPEIN 

EQU 

$C060 

02BB:CA 


71 

DFX 


0314:C6 05 

125 UIAIT2 

DEC 

DELAY 

0240: 

18 




02BC: 10 

D8 

72 

BPL 

AGAIN1 

0316:D0 FC 

126 

BNE 

UAIT2 

0260: 

19 




02BE:A5 

04 

73 

IDA 

BYTE 

0318 :EA 

127 

NOP 


0260: 

20 

REALT IME SOUND 

02CO:91 

00 

74 

STA 

(POINTL),Y 

0319 :EA 

128 

NOP 


0260: 

21 




02C2 : E6 

00 

75 

INC 

POINTL 

031A : 26 04 

129 

ROL 

BYTE 

0260: 

22 




02C4:DO 

08 

74 

BNE 

NI 

031C:B0 09 

130 

BCS 

CL1CK2 

0260:AD 10 CO 

23 


LDA 

STROBE 

02C6:E6 

01 

77 

INC 

POINTH 

031E : 90 00 

131 

RFC 

SYL2 

0263-.AD 40 CO 

24 


LDA 

TAPEIN 

02C8:A5 

01 

78 

LDA 

POINTH 

0320:EA 

132 SYL2 

NOP 


0264:85 03 

25 


STA 

OLD 

02CA:C9 

94 

79 

CMP 

#$94 

0321:EA 

133 

NOP 


0268:AD 40 CO 

26 AGAINO 

LDA 

TAPEIN 

02CC:FO 

08 

80 

RFQ 

CHECK 

0322:EA 

134 

NOP 


0266:85 02 

27 


STA 

NEU 

02CE;AD 

00 CO 

81 NI 

LDA 

KEYB0ARD 

0323 :EA 

135 

NOP 


026D: 45 03 

28 


E0R 

OLD 

0201:10 

CI 

82 

BPL 

ASCOLTA 

0324:EA 

136 

NOP 


024F:30 03 

29 


BM1 

CLICK0 

02D3:AD 

10 CO 

83 

I.DA 

STROBE 

0325:50 09 

137 

BVC 

NEUBIT2 

0271:EA 

30 


NOP 


02D6:A9 

FF 

84 CHECK 

LDA 

#$FF 

0327:EA 

138 CLICK2 

NOP 


0272:10 03 

31 


BPL 

SYL0 

0208:91 

00 

85 

STA 

(POINTL),Y 

0328:EA 

139 

NOP 


0274:AD 30 CO 

32 CL1CK0 

LDA 

SPEAKER 

02DA:A4 

00 

86 CO 

LDX 

POINTL 

0329:EA 

140 

NQP 


0277:A5 02 

33 SYL0 

LDA NEW 

02DC:D0 

02 

87 

BNE 

CI 

032A:EA 

141 

NOP 


0279:85 03 

34 


STA 

OLD 

02DE:C4 

01 

88 

DFC 

POINTH 

032B:AD 30 CO 

142 

LDA 

SPEAKER 

027B:AD 00 CO 

35 


LDA 

KEYB0ARD 

02E0:C6 

00 

89 CI 

DEC 

POINTL 

032E:50 00 

143 

BVC 

NEUBIT2 

027E : 10 E8 

36 


BPL 

AGAIN0 

02E2:D0 

06 

90 

BNE 

C2 

0330:EA 

144 NEU8IT2 NOP 


0280: 

37 




02E4:A5 

01 

91 

LDA 

POINTH 

0331:EA 

145 

NOP 


0280: 

38 




02E4:C9 

14 

92 

CMP 

#$16 

0332 :EA 

146 

NOP 


0280: 

39 

RECORDING 


02E8:F0 

1A 

93 

BEQ 

PARLA 

0333:CA 

147 

DFX 


0280: 

40 




02EA : B1 

00 

94 C2 

LDA 

(POINTL),Y 

0334:10 DA 

148 

BPI 

AGAIN2 

0280: 

41 




02EC:C9 

FF 

95 

CMP 

#$FF 

0334:E6 00 

149 

INC 

POINTL 

0280:AD 10 CO 

42 


LDA 

STROBE 

02EE: DO 

EA 

96 

BNE 

CO 

0338 : DO 02 

150 

BNE 

P2 

0283:A0 00 

43 


LDY 

#$00 

02F0:A9 

FE 

97 

LDA 

#$FE 

033A:E6 01 

151 

INC 

POINTH 

0285:84 00 

44 


STY 

POINTL 

02F2:91 

00 

98 

SIA 

(POINTL), Y 

033C : DO C8 

152 P2 

BNE 

PI 

0287:A9 16 

45 


LDA 

#$16 

02F4:D0 

E4 

99 

BNE 

CO 

033E:60 

153 END 

RTS 


0289:85 01 

44 


STA 

POINTH 

02F4:EA 


100 

NOP 


033F: 

154 j 



0288:A9 05 

47 


LDA 

#05 

02F7:EA 


101 

NOP 


033F: 

155 : 



0280:85 06 

48 


STA 

SPEED 

02F8:EA 


102 

NOP 


033F: 

156 ; M.H.SOFTWARE 

028F;AD 60 CO 

49 


LDA 

TAPEIN 

02F9:EA 


103 

NOP 


033F: 

157 : *01/10/84/* 

0292:85 03 

50 


STA 

OLD 

02FA:EA 


104 

NOP 






0294:A2 07 

51 ASCOLTA LDX 

#$07 

02FB:EA 


105 

NOP 


*** SUCCESSFUL ASSEMBLY: NO ERRORS 
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FLOWCHART N. 1. 

Struttura generale della routine in linguaggio macchina 


pr il Tifvir crìi iwn 'ì Ascolto e riproduzione della voce 

L ‘ Il oUUINU j senza memorizzazione 


C ncronniMr A Ascolto e riproduzione della voce 

l RECORDING J con memorizzazione 


(talking) Riproduzione della parola in memoria 


3.500 Hertz (più che sufficiente per 
riprodurre un parlato), con un consu¬ 
mo di memoria pari a 3.500/8 byte/sec. 

Memorizzazione 

dell’analisi 

Questo passo è facoltativo: permet¬ 
te al computer di ripetere la parola 
anche se non la sta ascoltando. 

Per memorizzare la parola il pro¬ 
gramma mette in memoria una serie di 
0 e 1 (0= silenzio, 1= click). Visto che 
un byte è costituito da 8 bit, e che ogni 
bit può appunto codificare per 0 o 1, 
ogni byte può contenere la codifica di 
una serie di 8 eventi sonori elementari. 
Per impacchettare 8 bit in un byte (ve¬ 
di listato 1 , righe 62-63,66-67), per 8 
volte caricate nel carry il valore (0-1) 
da inserire nel byte in costruzione ed 
eseguite (v. FLOWCH.3) una opera¬ 
zione di rotazione a sinistra del byte 
stesso (ROL BYTE). 

La zona di memoria riservata alla 
memorizzazione della parola va da 
$1600 a S95FF. Come codice di fine 
parola usate il valore 255 ($FF). Ov¬ 


viamente un subroutine del program¬ 
ma (CHECK) si occupa di sostituire 
tutti gli $FF eventualmente presenti 
nella codifica della parola con $FE (la 
differenza a livello di pronuncia non è 
percepibile). 

Resintesi della 
voce umana 

Il computer resintetizza la voce 
umana, o direttamente servendosi del¬ 
l’analisi della voce stessa mentre la sta 


udendo (reai time sound), o servendo¬ 
si dell’analisi che aveva preventiva¬ 
mente memorizzato (Talking). 

Nel caso di sintesi vocale in reai ti¬ 
me, il computer non dovrà fare altro 
che emettere un click sul proprio alto- 
parlante ogni volta che un click si pre¬ 
senterà all’ingresso per il registratore 
(FLOWCH.2). 

Nel caso di sintesi vocale a partire 
dall’analisi memorizzata, il computer 
dovrà leggere bit per bit tale analisi e 
ogni volta che troverà un bit = 1. do¬ 
vrà emettere un click sul proprio alto- 


LISTATO 2. Listato del programma basic “sintesi vocale” 

0 REM ************************* 

1 REM * ^ 

2 REM * SINTESI VOCALE * 

3 REM * # 

4 REM * 8Y MAURO MONTANARI * 

5 REM * VIA M.t.KING 14 * 

6 REM * VIADANA <MN) * 

7 REM * TEL.0375/830273 * 

8 REM » (0 1985 BY APPLICANDO* 

9 REM ************************* 

10 HIMEM: 5632: TEXT : HOME : INVERSE : HTAB 15: VTAB 3: PR 

INT " ■: HTAB 15: VTAB 4: PRINT ■ LA VOCE ’: 

HTAB 15: VTAB 5: PRINT 1 ’: N0RMAL :D$ = CHR 

$ (4) 

11 POKE 34,7: HOME : VTAB 12: HTAB 7: PRINT ■PROGRAMMA DI S 
INTESI VOCALE’: VTAB 14: HTAB 16: PRINT ’A CURA DI’: VTA 

B 16: HTAB 13: PRINT 'MURO MONTANARI’ 

12 GOSUB 900 

100 POKE 34,7: HOME 

110 PRINT ’l: COLLEGA IL REGISTRATORE SU CUI HAI INCIS 

0 LA FRASE DA CODIFICARE E MET= TILO IN <PLAY).’: PR 

INT 

120 PRINT "2: REGOLA IL VOLUME SINO A CHE LA VOCE RISUL 

TA CHIARA ’: PRINT 

130 PRINT ’3:‘(RETURN) PER COMINCIARE LA CODIFICA DELLE 

PAROLE.’: PRINT 

140 PRINT "4: (RETURN) PER TERMINARE LA CODIFICA DELLE 

PAROLE E RISENTIRLE.’: PRINT 

200 CALL 608: REM ASCOLTA E PARLA 

210 HOME 

220 PRINT ’1: RIASCOLTO’: PRINT 

230 PRINT ’2: SALVA SU DISCO LA PAROLA.’: PRINT 

240 PRINT ’3: RECUPERA DA DISCO LA PAROLA.’: PRINT 

250 PRINT ’4: CODIFICA UNA NUOVA PAROLA.’: PRINT 

260 PRINT "5: FINE’ 

300 GOSUB 800: IF V < 1 OR V ) 5 THEN 300 

310 0N V GOTO 400,500,600,100,700 

400 REM RIASCOLTO 

401 POKE 0,0: POKE 1,22: CALL 768: GOTO 300 

500 HOME : REN SALVA SU DISCO 

501 INPUT 'NOME CON CUI SALVARE LA PAROLA : ■ ;C*: IF C$ = " 

THEN 210 

510 X2 = PEEK (0) ♦ 256 * PEEK (1):X1 = 5632:L = X2 - XI 

* 1 

515 IF L > 32767 THEN L = 32767: POKE 38398,255 

520 PRINT : PRINT ’BSAVE’C»’,A5632,L*L 

530 PRINT W’BSAVE’C*’,A5632,L’L 

540 GOTO 210 

600 HOME : REM RECUPERA DA DISCO 

601 INPUT "NOME DELLA PAROLA :’:C»: IF C$ = ” THEN 210 

610 PRINT : PRINT ’BLOAD’C*’.A5632’ 

620 PRINT : PRINT ’POKEO,0:P0KE1,22:CALL768:REM RIASCOLTO’ 

630 PRINT M'BLOAD’CV ,A5632’ 

640 POKE 0,0: POKE 1.22: CALL 768: GOTO 210 

700 TEXT : HOME : END 

800 VTAB 21: HTAB 18: PRINT ’» *’: HTAB 20: VTAB 21: FLAS 

H : PRINT ’ ’: N0RMAL 

801 POKE - 16368,0: WAIT - 16384.128:V = PEEK ( - 16384) 

- 176: POKE - 16368,0: RETURN 

900 REM METTI IN MEMORIA LA SUB 'ASCOLTA E PARLA' 

901 CS = 0: F0R J = 608 TO 831: READ X: POKE J,X:CS = CS ♦ 

X: NEXT : IF CS = 26637 THEN RETURN 

902 VTAB 20: PRINT 'ERRORE NELL'INSERIRE I DATI. CONTROLLA 

LE LINEE 910-913.’: END 

910 DATA 173,16,192,173.96,192.133,3.173,96.192.133.2,69.3. 

48,3,234116,3,173,48,192,165,2,133,3.173,0,192,16,232,1 

73,16.1?2,160,0,132.0,169,22.133,1.169,5,133,6,173,96,1 

92,133,3,162,7.165.6.Ì33,5,198,5.208,252 

911 DATA 173,96,192,133,2.69,3,48,8.Ì6,0.234.24.38.4,80,8.1 

73,48.192.56,38,4,80,6,165,2,Ì33,3,2Ó2,16.2Ì 6,1 <S5,4,145 

M feV htiosVl 

yj.i/j.io.jyi.iòy, ì.jj ■ 1 t j « u ■ i òó ■UilUOiZiI/o 

912 DATA 1,198.0.208,6,165,1.201.22,240,2i,177,0,201,255,20 
8.234.169,254,145,0,208,228.234,234,234,234,234.234,234 
,234,234,234,Ì69.5,Ì33.6,160.0,177,0.133.4,201,255,240, 
48,162,7,165,6.133,5.198,5.208,252.234.234 

913 DATA 38,4,17^,9,144,0,234.234,234.234,234,80.9,234,234. 
234,234,173.46.192.80.0,234,234,234,202,16,218,230,0,20 
8.2,230.1,208,200,96,0 

915 REM GENERAL INFORMATION 

920 REM ASCOLTA...,608 ($260) REGISTRA...640 ($280) 

PARLA.768 ($300) 

921 REM PER FAR PRONUNCIARE LA PAROLA PRECEDENTEMENTE CARI 
=CATA IN MEMORIA: P0KARE IN $00,$01 L'INIZIO DELLA PAR 

0=LA E QUINDI 'CALL PARLA' 

922 REM ASCOLTAIPARLA,A$260,L$DF 
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FLOWCHARTN. 2-Real timesound 



FLOWCHART N. 3-Recording 



parlante (SC030 = SPEAKER). 

Per leggere bit a bit un byte di codi¬ 
fica sarà sufficiente eseguire per 8 vol¬ 
te una operazione di rotazione a sini¬ 
stra del byte in esame (ROL BYTE) 
testando quindi il carry che risulterà 
acceso se si deve pizzicare l’altopar- 
lente, spento se si deve fare silenzio. 
(FLOWCH.4) 

E di ovvia e fondamentale impor¬ 
tanza che la lettura della memoria pro¬ 
ceda alla stessa velocità con cui il com¬ 
puter aveva esplorato TAPEIN, altri¬ 
menti la pronuncia della parola risul¬ 
terà accelerata o rallentata, proprio 
come quando si suona un disco ai giri 
sbagliati. 


La routine 
inassembly 

La parte Basic (listato 2) gestisce la 
routine in assembly; questo program¬ 
ma può servire a prendere confidenza 
con la routine vera e propria in lin¬ 
guaggio macchina, ma poi potrà essere 
più vantaggioso lavorare manualmen¬ 
te, impartendo i comandi direttamen¬ 
te da monitor: 


260G. REAL TIME SOUND 

Return.RECORDING 

Return.TALKING 

0:00 16 N 300G.TALKING 


in modo da effettuare alcuni interventi 
che il Basic non sa fare. 

Dopo aver digitato il programma 
Basic, dandogli il RUN, entrerà in me¬ 
moria la routine in assembly; dovrete 
a questo punto: 

a) collegare il registratore al compu¬ 
ter e premere il tasto play (ovvio che 
sulla cassetta avrete preventivamente 
inciso una frase). 

b) regolare il volume del registrato- 
re sino a che la pronuncia del compu¬ 
ter risulta chiara e comprensibile (ri¬ 
cordate che serve un volume piuttosto 
alto). 

c) riavvolgere il nastro sino all'inizio 
della frase, premere il tasto play del 
registratore e quindi RETURN per 
cominciare la codifica della frase. 

d) premere nuovamente RETURN 
al termine della frase per interrompe¬ 
re la codifica e riascoltare la frase così 
come il computer l’ha codificata. 

A questo punto il programma vi 
chiederà di scegliere fra alcune opzio¬ 
ni: riascolto della frase, salvataggio o 
recupero della frase da disco, codifica 
di una nuova frase, uscita dal pro¬ 
gramma. 
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FLOWCHARTN. 4-I alking 




* TECnOPCMJEPI 

cnmpuTEPi shop 

TUTTO APPLE 

MONFALCONE (GO) 

VIA S. GIACOMO 30 TEL. 0481/44260 

QUOTAZIONI SPECIALI IVA COMPRESA 

MODEM 300/600/1200 BAUD ADATTO A 
APPLE E A QUALSIASI SISTEMA MUNITO 
DI PS232 L. 300.000 

SCHEDA 80 COLONNE CON SOFT SWITCH 

L. 170.000 

MOUSE COMPLETO DI SOFTWARE 

L. 145.000 

S&H SCHEDA DI CAMPIONAMENTO VO- 
CALE E MUSICALE PER LA SINTESI DI 
QUALSIASI SUONO REGISTRATO DAL 
VIVO CON UN MICROFONO COMPLETO 
DI BATTERIA ELETTRONICA PRO¬ 
GRAMMABILE L. 360.000 

BETA SYNTAURI SISTEMA MUSICALE 
POLIFONICO COMPLETO DI TASTIERA 
A 5 OTTAVE, 2 PEDALI, 2 SCHEDE DI 
SINTESI, 1 SCHEDA-INTERFACCIA TA¬ 
STIERA, REGISTRATORE DIGITALE A 
16 PISTE INCORPORATO L. 1.450.000 

CAD SISTEMA GRAFICO PROFESSIONA¬ 
LE COMPRENSIVO DI SCHEDA 128K RAM, 
JOYSTICK PROFESSIONALE, SOFTWARE 
E MANUALE IN ITALIANO, OTTIMO PER 

GRAFICI ED ARCHITETTI L. 980.000 

SCHERMO ANTIRIFLESSO IN SPECIALE 
FIBRA OTTICA APPLICABILE A QUAL¬ 
SIASI MONITOR 12" L. 18.000 

DISCHI PER APPLE E SIMILI UTILIZZA¬ 
BILI SULLE 2 FACCE, 5 ANNI DI GARAN- 
ZIA SCRITTAI 

MINIMO 30 PEZZI L. 3.100 

JOYSTICK CON APPLE CON TIMER E 
2 PULSANTI l. 43.000 

DRIVER 140K PER APPLE L. 300.000 

DRIVER 320K PER APPLE COMPATIBILE 
PRO-DOS L. 480.000 

DISPONIAMO DI UN VASTO ASSORTI¬ 
MENTO DI SCHEDE E PERIFERICHE. 
RICHIEDETECI IL NOSTRO CATALOGO 
GRATUITO COMPLETO DI PREZZI. 

GARANZIA 6 MESI CON SOSTITUZIONE 
IMMEDIATA IN CASO DI GUASTO. 
SPEDIZIONE IN CONTRASSEGNO. ORDI¬ 
NI TELEFONICI AL 0481/44260. 

MERCE PRONTA CONSEGNA. 

PER ORDINI SUPERIORI A L. 90.000 
IMBALLO E SPEDIZIONE GRATIS. 


IVA COMPRESA 

* TECTIOPDWER * 
COmPUTER SHOP 

34074 MONFALCONE(GO) 

ViaS. Giacomo, 30 (angolo Via S. Anna) 
TEL. 0481/44260 



Altre possibilità 

Vediamo infine quel che si può fare 
in più, lavorando manualmente. In¬ 
nanzitutto è possibile risparmiare me¬ 
moria salvando su disco soltanto la pa¬ 
rola vera e propria, senza il silenzio 
che in genere la precede o la segue e 
che è costituito da una lunga serie di 
zeri facilmente riconoscibile. Ricorda¬ 
tevi comunque di mettere un codice di 
fine parola ($FF) alla fine del campo 
che salverete su disco. 

Inoltre, una volta salvate su disco, le 
parole possono essere montate in un 
unico file binario caricandole in me¬ 
moria una di seguito all’altra. Questo 
file sarà quindi a sua volta salvato su 
disco e costituirà una sorta di vocabo¬ 
lario, alle cui parole potrete accedere 
pokando in $00 e $01 l’indirizzo di par¬ 
tenza della parola ($00 = byte basso, 
$01 = byte alto) e quindi eseguendo 
una CALL alla subroutine di pronun¬ 


cia (CALL 768, ma la routine è perfet¬ 
tamente portatile per cui potete met¬ 
terla in memoria dove ritenete più op¬ 
portuno). 

Per pronunciare una parola il cui 
inizio sia a SI600 dovrete fare: 
POKE 0,0: POKE 1, 22:CALL 768 
Infine, per salvare su disco la routi¬ 
ne in assembly dovrete dare questo 
comando: 

BSAVE ASCOLTA&PARLA, 
A$260, L$DF 

Mauro Montanari 


Questo programma è disponibile su di¬ 
schetto. L'elenco, i prezzi e le modalità 
d’ordine di questo e degli altri dischetti 
disponibili sono riportati nella rubrica 
Disk Service. 

Unitamente al programma, 
troverete una simpatica 
dimostrazione del suo 
funzionamento: Ed è subito sera, 
una delle più famose liriche di 
Quasimodo. 

-¥ 
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Gira, gira, gira, gira, gira, gira, 
gira, gira, gira, gira, gira... 

30 milioni di volte. 

E la risposta è sempre perfetta. 



Durata superiore - Verbatim è runico produttore in grado di offrirvi floppy disk 
con una durata media della vita di 30 milioni di giri. 10 volte di più di 
quanto previsto dalle norme in vigore. Ma questo è solo l’inizio. 


Affidabilità totale -1 floppy disk Verbatim offrono 
il massimo dell’affidabilità. Merito dell’avanzata ed 
esclusiva tecnologia, applicata sia nel trattamento 
della superficie sia nel procedimento di lubrificazione, 
che preserva e riduce l’usura delle testine. 

Qualità garantita - Ogni floppy disk Verbatim è 
sottoposto a 70 controlli di qualità di tipo chimico, 
meccanico ed elettronico, ed è garantito al 100% per 
l’assenza di errori. 

Provate oggi stesso i floppy disk Verbatim. 
Scoprirete la differenza qualitativa, ogni giorno, in 
ogni loro risposta. Sempre perfetta. 

I floppy disk Verbatim sono disponibili in una 
gamma completa da 8, 51 e 3 i pollici. 


n 


Per ulteriori informazioni inviare il coupon alla VERBATIM ITALIA S 


P-A. 


Minidisk 


Nome_ 

Professione 
Indirizzo_ 



_ Cognome 


Cap 


J 


JJ Ybrbatim 

Leader nel tempo. 


VERBATIM ITALIA S.pA - Vìa Cemaia, 2 - 20121 MILANO - Telefono: 65.44.31/2/3/4/5 - Telex: 340640 VERBITI 













Un’idea per chi nell’oroscopo "non crede": scoprire che 
può anche essere una cosa seria, completamente 
diversa dalle due righe di maliziosi e inconcludenti 
consigli che danno le riviste femminili. La 
personalizzazione è completa e assoluta, con tanto di 
tracciato grafico della casa del cielo natale... 


DOS 3.3 IIPII * 1 

mini 




[APPLE //e 
APPLE 771 


Per file e per segno 


M a tu di che segno sei? Colti alla 
sprovvista, nel bel mezzo della 
conversazione, da questa domanda 
inaspettata, non ci resta che risponde¬ 
re la verità; non abbiamo infatti il tem¬ 
po, la prontezza, il coraggio, di ribat¬ 
tere come vorremmo con una gelida 
frase sarcastica, che stronchi l’interlo¬ 
cutore informandolo che noi agli oro¬ 
scopi non crediamo, abitiamo nel no¬ 
stro secolo e non nel medioevo, siamo 
dei manager, non delle parrucchiere. 

O forse siamo un po’ imbarazzati? 
Sospettiamo, senza ammetterlo, che il 
nostro sapiente intervistatore possa 
cavare dall’informazione dio sa quali 
notizie sul nostro conto, sul carattere, 
il passato, il futuro, le forze e le debo¬ 
lezze della nostra persona? E non so¬ 
lo; credere, infatti, nell’astrologia e di 
conseguenza nell’influenza degli astri 
sulla nostra vita e sul nostro comporta¬ 
mento sarebbe come ammettere resi¬ 
stenza del destino, e ciò per un indivi¬ 
duo razionale è nella maggior parte 
dei casi inaccettabile. 

Niente di più sbagliato! Gastrolo¬ 
gia, infatti, permette, a partire dallo 
studio del grafico natale, che è unico e 
irripetibile, una sorta di impronta digi¬ 
tale dell’anima, di individuare una se¬ 
rie di caratteristiche legate al caratte¬ 
re, e di tracciarne un profilo per molti 
versi vicino alla realtà. 

L’astrologia, quindi, assume il ruolo 
di una disciplina che permette di avere 
un’ulteriore chiave di lettura delle 
azioni umane passate, presenti e futu¬ 
re. A volte, infatti, un determinato 
comportamento può sfuggire alla logi¬ 
ca razionale ed empirica, o quantome¬ 
no non può essere spiegato da essa. Lo 
studio del grafico natale, insomma, 
spesso aiuta a comprendere e ad ana¬ 
lizzare meglio il comportamento uma¬ 
no. 

Non a caso, infatti, numerosi astro- 
logi entrano a far parte di équipe 
scientifiche nei più svariati campi dello 
scibile umano. L’astrologia, quindi, 


ben lungi dall’essere una disciplina 
esaustiva dell’analisi delle azioni uma¬ 
ne è indubbiamente un valido ausilio a 
esse, e permette a volte di vivere in 
maniera meno angosciante gli avveni¬ 
menti quotidiani. 

Questo programma vuole appunto 
dimostrarlo, con un metodo rigoroso. 
È caratterizzato, purtroppo, da un li¬ 
stato interminabile, che non può quin¬ 
di essere pubblicato, e vi viene così 
offerto direttamente su dischetto a un 
prezzo molto favorevole (30 mila lire); 
per ordinarlo utilizzate il buono conte- 
.nuto nel Disk Service. 

Come usare il 
programma 

OROSCOPO si compone di un li¬ 
stato in Basic e di un file di testo ad 
accesso diretto, deputato all’interpre¬ 
tazione. Il listato, il vero e proprio 
programma, esegue i calcoli per dise¬ 
gnare la carta del cielo natale e contie¬ 
ne 96 istruzioni DATA; il programma, 
infatti, fornisce l’interpretazione per 
otto pianeti sui dieci calcolati. 

Una volta lanciato il programma, 
appare la videata con la richiesta di 
immissione dei dati anagrafici e delle 
coordinate del luogo di nascita. Gli 
INPUT a cui rispondere sono 9: 


Gli unici passi a cui bisogna prestare 
attenzione sono quelli relativi alla dif¬ 
ferenza oraria da Greenwich e ai dati 
di latitudine e longitudine. È bene che 
consultiate attentamente le tavole A, B 
e C che riportano le istruzioni necessa¬ 
rie per una corretta digitazione dei va¬ 
lori richiesti. 

Ultimata l’immissione dei dati, sul¬ 
l’ultima riga del video verrà visualizza¬ 
to il seguente messaggio: 


DOMIFICAZIONE PLACIDUS O 

KOCH? 


Il calcolo della domificazione per¬ 
mette di individuare la posizione delle 
case, e, di conseguenza, dell’Ascen¬ 
dente e del Medio Cielo. Una volta 
premuto il tasto corrispondente alla 
vostra scelta, sul video verranno mo¬ 
strate le posizioni, espresse in Gradi e 
Primi e precedute da un numero roma¬ 
no, delle dodici Case, che rimarranno 
visualizzate finché non premerete un 
tasto qualsiasi. In questa fase di domi¬ 
ficazione vengono eseguiti dei calcoli; 

i risultati sono rappresentati da pecu¬ 
liari righe (cuspidi) che dovrete trac¬ 
ciare, per realizzare la carta del cielo 
natale, sul grafico di base che già porta 
prestampati in posizione fissa i dodici 
segni zodiacali. L’oroscopo è infatti la 
rappresentazione grafica della situa- 


INPUT RICHIESTO 

RISPOSTA 

TIPO VARIABILE 

CAMPO VAR. FORMA ES. 

1) Nome e Cognome 

Opzionale 

Alfanumerica 



2) Giorno nascita 

Obbligata 

Numerica 

1/31 GG 

01 

3) Mese nascita 

Obbliqata 

Numerica 

1/12 W 

03 

4) Anno nascita 

Obbligata 

Numerica 

1800/2400 MA 1980 

5) Ora nascita 

Obbligata 

Numerica 

1/24 HH.m 

08.30 

4) Di-f-f. da Greenwich 

Obbligata 

Numerica 

12/-12 -1 


7) Luogo di nascita 

Opzionale 

Alfanumerica 



8) Longitudine EST 

Obbliqata 

Numerica 

20/-20 GG.PP 

-15.10 

9) Latitudine NORD 

Obbliqata 

Numerica 

0/65 GG.PP 

37.30 
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OROSCOPO 


DATI ANAGRAFICI DEL SOGGETTO 


NOME E COGNOME ... 7 
GIORNO NASCITA 
MESE NASCITA .. . 

ANNO NASCITA .. 

ORA NASCITA . 

DIFFERENZA DA GREENWICH 
LUOGO DI NASCITA . 
LONGITUDINE EST .. 
LATITUDINE NORD ., 


nove input iniziali contengono i dati anagrafici. 


CUSPIDI DELLE CASE SECONDO KOCK 


TEMPO SIDERALE LOCALE 19h 43m 4s 


I 

ASCENDENTE 

15G 

4SP 

TORO 

11 


14G 

IIP 

GEMELLI 

111 


5 G 

33P 

CANCRO 

IU 

IM. CIELO 

2iG 

53P 

CANCRO 

u 


25G 

29P 

LEONE 

VI 


S G 

53P 

BILANCIA 

VI I 

DISCENDENTE 

15G 

4SP 

SCORPIONE 

UIII 


14G 

IIP 

SAGITTARIO 

IX 


5 

38P 

CAPRICORNO 

X 

MEDIO CIELO 

23G 

53P 

CAPRICORNO 

X I 


25G 

29P 

ACQUARIO 

XII 


6 G 

53P 

ARIETE 


PREMI UN TASTO PER CONTINUARE 


Le cuspidi nel sistema di domificazione Kock. 
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TAVOLA A - ORE LEGALI IN ITALIA 

ttttO 

MESE 

GIORNO 

ORA 

MESE FINE 

GIORNO ORA 

ANNO 

MESE 

GIORNO 

ORA 

MESE FINE 

GIORNO 

ORA 


INIZIO 







INIZIO 






1920 

MARZO 

21 

00 

SETTEMBRE 

18 

24 

1971 

MAGGIO 

23 

00 

SETTEMBRE 

25 

24 

1940 

GIUGNO 

15 

00 

DICEMBRE 

31 

24 

1972 

MAGGIO 

28 

00 

SETTEMBRE 

30 

24 

1941 

GENWIO 

01 

00 

DICEMBRE 

31 

24 

1973 

GIUGNO 

03 

00 

SETTEMBRE 

29 

24 

1942 

GEM4AI0 

01 

00 

NOVEMBRE 

02 

03 

1974 

MAGGIO 

24 

00 

SETTEMBRE 

28 

24 

1943 

MARZO 

29 

02 

OTTOBRE 

04 

03 

1975 

MAGGIO 

25 

00 

SETTEMBRE 

27 

24 

1944 

APRILE 

03 

02 

OTTOBRE 

02 

03 

1974 

MAGGIO 

30 

00 

SETTEMBRE 

25 

24 

1945 

APRILE 

02 

02 

SETTEMBRE 

14 

24 

1977 

MAGGIO 

29 

00 

SETTEMBRE 

25 

24 

1944 

MARZO 

17 

02 

OTTOBRE 

04 

03 

1978 

MAGGIO 

28 

00 

OTTOBRE 

01 

01 

194? 

MARZO 

14 

00 

OTTOBRE 

05 

01 

1979 

MAGGIO 

27 

00 

SETTEMBRE 

30 

01 

1948 

FEBBRAIO 

29 

00 

OTTOBRE 

03 

03 

1980 

APRILE 

04 

00 

SETTEMBRE 

28 

03 

1944 

MAGGIO 

22 

00 

SETTEMBRE 

24 

24 

1981 

MRZO 

29 

02 

SETTEMBRE 

27 

03 

1947 

MGGIO 

28 

00 

SETTEMBRE 

23 

24 

1982 

MARZO 

28 

02 

SETTEMBRE 

24 

03 

1948 

MAGGIO 

24 

00 

SETTEMBRE 

21 

24 

1983 

MARZO 

29 

03 

SETTEMBRE 

24 

03 

1949 

GIUGNO 

01 

00 

SETTEMBRE 

27 

24 

1984 

httRZO 

25 

03 

SETTEMBRE 

30 

03 

1970 

MAGGIO 

31 

00 

SETTEMBRE 

24 

24 











TAVOLA B 

- FUSI ORARI (diAderenza da Greenwieh) 



STATO 

FUSO 

STATO 

FUSO 

STATO 

FUSO 

STATO FUSO 

ALGERIA 

0 

COSTA D'AVORIO 

0 

AUSTRALIA OCC. 

-8 

CINA -8 

GRAN BRETAGNA 

0 

IRLANDA 

0 

FILIPPINE 

-8 

HONG KONG -8 

ISLANDA 

0 

MAROCCO 

0 

FORMOSA 

-8 


MAURITANIA 

0 

PORTOGALLO 

0 




TOGO 

0 

ALTO VOLTA 

0 








COREA 

-9 

GIAPPONE -9 

ALBANIA 

-1 

ANDORRA 

-1 




ANGOLA 

-1 

AUSTRIA 

-1 

AUSTRALIA ORIEN, 

-IO 


BELGIO 

-1 

CAMERUN 

-1 




CECOSLOVACCHIA 

-1 

CENTRO AFRICA 

-1 




CHAD 

-1 

CONGO 

-1 

ARGENTINA 

♦3 

BRASILE ORIEN. *3 

DANIMARCA 

-1 

FRANCIA 

-1 

CANADA ORIEN. 

*3 

URUGUAY *3 

GABON 

-1 

GERMANIA 

-1 




GIBILTERRA 

-1 

ITALIA 

-1 




JUGOSLAVIA 

-1 

LUSSEMBURGO 

-1 

BOLIVIA 

*4 

BRASILE CENTR. +4 

MALTA 

-1 

MONACO 

-1 

PARAGUAY 

*4 

PORTORICO +4 

NORVEGIA 

-1 

OLANDA 

-1 

VENEZUELA 

+4 


POLONIA 

-1 

SPAGNA 

-1 




SVEZIA 

-1 

SVIZZERA 

-1 








BRASILE OCC. 

<5 

COLOMBIA *5 





CUBA 

i5 

GIAMA1CA *5 

BULGARIA 

-2 

CIPRO 

-2 

PERÙ' 



EGITTO 

-2 

FINLANDIA 

-2 



GIORDANIA 

-2 

GRECIA 

-2 




ISRAELE 

-2 

LIBANO 

-2 

CANADA CENTR. 



LIBIA 

-2 

ROMANIA 

-2 




SIRIA 

-2 

SUD AFRICA 

-2 




SUDAN 

-2 

TURCHIA 

-2 

CANADA OCC. 

*8 


ARABIA SAUDITA 

-3 

ETIOPIA 

-3 

U.R.S.S. OCC. 

-3 

U.R.S.S. ORIEN. -13 

IRAN 

-3 

IRAQ 

-3 




KENYA 

-3 

KUWAIT 

-3 




QATAR 

-3 

SOMALIA 

-3 

U.S.A ORIEN. 

*5 

U.S.A. OCC. *11 

INDIA 

-4 

SRY LANKA 

-4 

N.B. : Se al momento della 

nascita era in vigore l'ora 





legale (vedi TAVOLA A), bisogna digitare -2 anziché -1. 
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Figura 1. Questo 
grafico porta già 
prestampati i dodici 
segni zodiacali; a 
voi tracciarvi le 
cuspidi, in modo da 
realizzare la carta 
del cielo natale. 



zione planetaria al momento della na¬ 
scita. 

Le case sono numerate da I a XII a 
partire dall’Ascendente che è la cuspi¬ 
de della prima casa. A ciascuna di que¬ 
ste divisioni si attribuisce un significa¬ 
to particolare, schematicamente spie¬ 
gato nella tavola D. 

Il passo successivo è quello del cal¬ 
colo, e quindi della rispettiva visualiz¬ 
zazione, della posizione dei dieci Pia¬ 


neti, anch’essa espressa in Gradi e Pri¬ 
mi. C’è da specificare che, a volte, alla 
fine della stringa riportante la posizio¬ 
ne può apparire la lettera R. Ciò signi¬ 
fica che, in quella particolare data, il 
pianeta si trovava in moto apparente¬ 
mente RETROGRADO; sembrava 
cioè che stesse tornando indietro. 


Chiunque abbia un minimo di dimesti¬ 
chezza con l’astronomia sa che ciò è 
impossibile, ma astrologicamente si 
indica come RETROGRADO quel 
pianeta il cui moto è "apparentemente 
e temporaneamente contrario a quello 
ordinario" (Ciro Discepolo, Guida al- 
l’astrologia). 


CUSPIDI DELLE CASE SECONDO PLAGIDUS 


TEMPO SIDERALE LOCALE 19h 43m 4s 


I 

ASCENDENTE 

15G 

4SP 

TORO 

11 


13G 

42P 

GEMELLI 

111 


4 G 

4 P 

CANCRO 

IV 

IM. CIELO 

23G 

53P 

CANCRO 

V 


17G 

46P 

LEONE 

UI 


23G 

25P 

'TERGINE 

uii 

DISCENDENTE 

15G 

48P 

SCORPIONE 

un i 


13G 

42P 

SAGITTARIO 

IX 


4 G 

4 P 

CAPRICORNO 

X 

MEDIO CIELO 

23G 

53P 

CAPRICORNO 

X I 


17G 

46P 

ACQUARIO 

XII 


23G 

25P 

PESCI 


PREMI UH TASTO PER CONTINUARE 


Le cuspidi nel sistema di domificazione Placidus. 



POSIZIONI 

PLANETARIE 

SOLE 

1 1G 

59P 

PESCI 

LUNA 

27G 

36P 

SAGITTARIO 

MERCURIO 

26G 

21P 

PESCI 

'TENERE 

8 G 

29P 

ARIETE 

MARTE 

9 G 

42P 

GEMELLI 

GIO'TE 

1 G 

39P 

SAGITTARIO 

SATURNO 

5 G 

33P 

CAPRICORNO 

URANO 

13G 

8 P 

LEONE R 

NETTUNO 

6 G 

45P 

SCORPIONE R 

PLUTONE 

2 G 

4 IP 

'TERGINE R 

PREMI 

UN 

TASTC 

' PER CONTINUARE 


Le coordinate necessarie per il disegno dei pianeti. 
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MC 21°18' 


Jose s ~ Acireale 
20.6.53 h. 5.35 
Lon. -15.10 
Lat. 37.37 

Figura 2. Una carta 
del cielo natale 
“finta”: vi può 
servire per 
allenamento. 



IC 21°1 8' 


Premendo un tasto si passa al calco¬ 
lo degli ASPETTI (tavola E) e, quindi, 
alTINTERPRETAZIONE del grafi¬ 
co. Si definisce aspetto la distanza tra 
due pianeti misurata in gradi. Tutte le 
scuole di astrologia attribuiscono agli 
aspetti una grande importanza in 
quanto costituiscono il punto fonda- 
mentale per una corretta interpreta¬ 
zione. OROSCOPO tiene conto dei 
cinque aspetti più importanti, ricono¬ 
sciuti come tali dalla stragrande mag¬ 
gioranza degli astrologi. 

È possibile uscire dal programma in 
qualsiasi momento premendo il tasto 
[+]• 


Cosa vi dà 
il programma 

Se la parte relativa ai calcoli è quan¬ 
to di più serio e scientifico si possa 
chiedere, la parte che riguarda l’inter¬ 
pretazione merita una precisazione. 
L’interpretazione fornita dal pro¬ 
gramma OROSCOPO tiene conto so¬ 
lo ed esclusivamente della posizione 
dei pianeti nei segni. Qualche astrolo¬ 
go o appassionato di astrologia po¬ 
trebbe obiettare che è molto poco. E 
chiaro infatti che questo programma 


non può sostituire il ricorso a un serio 
professionista, ma l’interpretazione 
fornita è sicuramente più seria, più mi¬ 
rata e più strettamente individuale, se 
confrontata con quella fornita dalle ri¬ 
viste non specializzate. 

L’ultima sezione offerta dal pro¬ 
gramma OROSCOPO permette di 
stampare un tabulato riportante tutto 
ciò che è stato visualizzato sul moni¬ 
tor. 

Per disegnare la carta del cielo nata¬ 
le, poi, dovete procurarvi dei fogli co¬ 
me quello raffigurato (figura 1), repe¬ 
ribili in alcune librerie specializzate 
(ma qualche fotocopia va benone) e 
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t* LE PAGINE DEL SOFTWARE E DELL HARDWARE 1985 -86 


PROGRAMMI 
HARDWARE 
E ACCESSORI ~ 



Le Pagine del Software e 
dell'Hardware sono un 
supplemento di Applicando, il 
mensile per i personal computer 
Apple. Acquistarle singolarmente 
costa 18.000 lire. Per chi si abbona 
ad Applicando sono in regalo. 


Stai per acquistare un 
personal computer Apple? 

Vorrai sapere che cosa puoi far¬ 
ci. Questo volume è un aiuto indi¬ 
spensabile, una guida ragionata 
e completa di tutti i programmi, 
l’hardware e gli accessori dispo¬ 
nibili in Italia. Prima di fare il tuo 
acquisto non puoi non consultar¬ 
lo, perché solo se avrai a disposi¬ 
zione il programma, o i program¬ 
mi, e le periferiche che ti interes¬ 
sano, la tua scelta non ti 
deluso. 


Desidero ricevere, senza aggravio dì spese postali, Le Pagine del Software, con la seguente formula (segnare la casella 
di proprio interesse): 

o 18.000 lire per ricevere l'edizione 1985-86 di 

Le pagine del Software e dell'Hardware per Apple 

d 50.000 lire per ricevere 10 numeri di Applicando e in regalo l’edizione 1985-86 di 

Le pagine del Software e dell'Hardware per Apple 

COGNOME E NOME. 

VIA. N. 


Nuova 
edizione 
aggiornata 
e ampliata 


Hai appena acquistato un 
personal computer Apple? 

Senza questa raccolta di pro¬ 
grammi e le numerosissime se¬ 
gnalazioni di periferiche hardwa¬ 
re e di accessori non potrai mai 
sapere quali e quanti utilizzi po¬ 
trai farne. 


Possiedi già da tempo un 
personal computer Apple? 

Allora non c’è bisogno di dirti 
quanto può essere prezioso que¬ 
sto libro: sai già che il tuo compu¬ 
ter, senza programmi e senza un 
hardware adeguato, è come 
un’auto senza benzina e senza 
le ruote. E poiché non c’è limite 
alla fantasia e all’inventiva, con¬ 
sultando questa guida scoprirai 
utilizzi impensati per il tuo perso¬ 
nal. Utilizzi che ti permetteranno 
nel lavoro, nel tempo libero, nel 
gioco o nello studio, di essere 
sempre il più aggiornato, il più 
organizzato, il più soddisfatto... 


In questa nuovissima edizione 
delle Pagine del Software per 
Apple trovi elencati, con una ap¬ 
profondita descrizione, tutti i pro¬ 
grammi e le periferiche hardware 
disponibili in Italia. 


Ritagliare, compilare e 
spedire a: Edltronlca Srl, 
Corso Monforte 39, 
20122 Milano. 


CAP. CITTÀ. PR0V. 

□ Allego assegno non trasferibile di L.intestato a Editronica Srl. 

□ Allego ricevuta di versamento di L.sul CC postale N 19740208 intestato a Editronica Srl, 

Corso Montone 39, 20122 Milano. 

□ Pago fin d'ora con la mia carta di credito Bankamericard N .scadenza. 

Data.Firma. 


























TAVOLA C - LONGITUDINI E LATITUDINI 


PROV. 

LONG. 

LAT. 

PROV. 

LONG. 

LAT. 

PROV. 

LONG. 

LAT. 

PROV. 

LONG. 

LAT. 

AG 

-13.3 

37.2 

MS 

-10 

44.05 

CR 

-10 

45.08 

SA 

-14.55 

40.4 

AL 

-8,3 

44.05 

MT 

-14.3 

40.4 

CS 

-14.15 

39.15 

SI 

-11.15 

43.2 

AN 

-13.3 

43.35 

NA 

-14.15 

40.5 

CT 

-15 

37.30 

SO 

- 9.45 

44.1 

AO 

- 7.15 

45.45 

NO 

- 8.3 

45.3 

CZ 

-14.3 

38.55 

SP 

- 9.45 

44.05 

AP 

-13.3 

42.5 

NU 

- 9.15 

40.2 

EN 

-14.15 

37.35 

SR 

-15.15 

37.05 

AQ 

-13.15 

42.2 

PA 

-13.15 

38.1 

FE 

-11.3 

44.5 

SS 

- 8.3 

40.45 

AR 

-11.45 

43.3 

PC 

- 9.3 

45.05 

FG 

-15.3 

41.3 

SV 

- 8.15 

44.2 

AT 

- 8 

44.55 

PD 

-11.45 

45.25 

FI 

-11.15 

43.45 

TA 

-17.15 

40.3 

AV 

-14,45 

40.55 

PE 

-14 

42.3 

F0 

-12 

44.15 

TE 

-13.3 

42.4 

BA 

-14.45 

41.1 

PG 

-12.15 

43.05 

FR 

-13.15 

41.4 

7N 

-11 

44,05 

BG 

- 9.3 

45.4 

PI 

-10.15 

43.45 

GE 

-8.45 

44,25 

TO 

- 7.3 

45.05 

BL 

-12 

44.1 

PN 

-12.3 

45.55 

GO 

-13.3 

45.55 

TP 

-12.3 

38 

8N 

-14,45 

41.1 

PR 

-10.15 

44.5 

GR 

-11 

42.25 

TR 

-12.3 

42.35 

BO 

-11.15 

44.3 

PS 

-12.45 

43.55 

IM 

- 8 

43.55 

TS 

-13.45 

45.4 

BR 

-17.45 

40.4 

PT 

-10.45 

43.55 

IS 

-14.15 

41.3 

TV 

-12.15 

45,4 

BS 

-10 

45.3 

PV 

- 9 

45.1 

LE 

-18.15 

40.2 

UD 

-13 

44.05 

B2 

-11.15 

44.3 

PZ 

-15.45 

40.4 

LI 

-10.15 

43.3 

'VA 

- 8.45 

45.5 

CA 

- 9 

39.15 

RA 

-12 

44.24 

LT 

-12.45 

41.3 

ve 

- 8.15 

45.2 

CB 

-14.3 

41.35 

RC 

-15.3 

38.05 

LU 

-10.3 

43.5 

VE 

-12.15 

45.25 

CE 

-14.15 

41.1 

RE 

-10.3 

44.4 

MC 

-13.15 

43.2 

VI 

-11.3 

45.3 

CH 

-14 

42.2 

RG 

-14.55 

34.55 

ME 

-15.3 

38.1 

VR 

-11 

45.27 

CL 

-14 

37.3 

RI 

-12.45 

42.25 

MI 

- 9 

45.3 

VT 

-12 

45.25 

CN 

- 7.3 

44.25 

RO 

-11.45 

45.05 

MN 

-10.45 

45.1 

MO 

-10.45 

44.4 

CO 

- 9 

45.3 

ROMA 

-12.15 

41.55 








N. CASA 

TAVOLA D 

DENOMINAZIONE 

- DESCRIZIONE CASE 

CORRISPONDENZE 

I 

Ascendente 

Esteri or iti. Personal iti. 

li 


Situazione -finanziaria. Denaro. 

III 


Studi. Parenti prossimi. 

IV 

Imum Coel i 

Tamigiia d'origine. 

V 


Svaghi, Sessuaiitl. Procreazione. 

VI 


Salute. Lavoro. Quotidianitl. 

VII 

Discendente 

Matrimonio. Associazioni. Contratti 

Vili 


Erediti. Morte. 

IX 


Viaggi all'estero. 

X 

Medio Cielo 

Realizzazione. Emancipazione. 

XI 


Amici. Protezioni. Equilibrio. 

XII 


Prove. Malattie. Vecchiaia. 


TAVOLA E - TOLLERANZE E SIGNIFICATO DEGLI ASPETTI 

ASPETTO 

GRADI 

TOLLERANZA 

VALORE 

Congiunzione 

0 

♦-10I 

POS/NEG 

Sestile 

40 

+- 41 

POS 

Quadrato 

90 

♦ - 41 

NEG 

Trigono 

120 

♦- 81 

POS 

Opposizione 

180 

+-10E 

NEG 



Nella fase di interpretazione il programma presenta un'analisi minuziosa, per pianeta, delle caratteristiche del soggetto. 


■ 
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quattro pennarelli: verde, rosso, blu e 
nero. Per imparare a realizzare perfet¬ 
tamente il disegno, vi proponiamo un 
grafico di prova (figura 2). 


Soggetto : Josè Milazzo, Nata ad 
Acireale (CT), il 20.6.1953, h. 5.35. 

La prima operazione da compiere è 
quella di tracciare sul foglio le cuspidi 


SE LO LISTATE 



Le righe principali del listato sono elencate qui di seguito, a disposizio¬ 
ne dei volenterosi che volessero “mettervi mano”. 

Riga 20 Salta le principali subroutine. 

Righe 30,60 Standardizza la lunghezza delle stringhe PI$ (Pianeti) in fase 
di calcolo degli aspetti. 

Riga 70 Intervalli minimi e massimi nel confronto degli aspetti. 

Riga 80 Aspetti. 

Righe 90,100 Variabili di servizio nella routine interpretazione. 

Riga 110 Intestazione videata aspetti. 

Righe 120,240 Conversione SEGNI—PRIMI. 

Righe 250,300 Sub nel calcolo delle case. 

Righe 310,360 Standardizzano la lunghezza delle stringhe YL$ (Case) in 
fase di calcolo delle case. 

Righe 510,610 Lettura file interpretazione. 

Righe 650,800 Sub confronti nel calcolo degli aspetti. 

Righe 810,940 Sub conversione stringhe SZ$ (I) nella routine interpreta¬ 
zione. 

Righe 970,980 Dimensionamento vettori. 

Riga 990 Valore di PI greco. 

Righe 1000,1070 Definizione delle funzioni usate. 

Righe 1090,1190 Videata di presentazione. 

Righe 1200,1370 Input dati. 

Righe 1460,1650 Calcolo Tempo Siderale. 

Righe 1660,1720 Scelta domificazione. 

Righe 1730,2230 Calcolo pianeti. 

Riga 2240 Visualizzazione pianeti. 

Riga 2250 Conversione in stringa dei gradi e primi (GD$ e PM$) dei 
pianeti. 

Riga 2260 Conversione in stringa dei gradi e primi (GD$ e PM$) dell’A¬ 
scendente e del Medio C. 

Riga 2270 Conversione in primi (KK (I)) assoluti delle posizioni dei 
pianeti e dell’Ascendente e del Medio Cielo. Righe 2290,2310 Videata di 
presentazione nel calcolo delle case secondo la domificazione KOCH. 
Righe 2320,2560 Calcolo posizione case. 

Righe 2570,2580 Videata di presentazione nel calcolo delle case secondo 
la domificazone PLACIDUS. 

Righe 2590,2880 Routine calcolo posizione case. 

Righe 2890,3010 Routine calcolo aspetti. 

Righe 3090,3230 Individuazione puntatori per la lettura del file INTER¬ 
PRETAZIONE. 

Righe 3240,3300 Visualizzazione interpretazioni. 

Righe 3310,3370 Opzione stampa su carta dei dati. 

Righe 3380,3660 Routine di stampa. 

Righe 3670,3720 Opzione fine/inizio programma. 

Righe 3730,3890 Data. 

/PR¬ 


OEMIMI 






AQUARIUS 


LIBRA 



PISCES 



delle case. Prendete i dati dal tabulato 
nella sezione DOMIFICAZIONE, e 
procedete come segue. 

1. Segnate con il pennarello verde 
un punto in corrispondenza di 10° del 
segno del CANCRO, un altro a 1° del 
segno del LEONE, un altro a 23° del 
segno del LEONE, e così via fino a 
segnare tutti i dodici punti risultanti 
dal calcolo della domificazione. Fatto 
questo, unite i punti opposti con una 
linea retta. Alla fine di questa opera¬ 
zione, se eseguita correttamente, il 
grafico sarà diviso in dodici settori o 
CASE. Segnate all’interno del cerchio 
piccolo al centro del foglio, a partire 
dalla cuspide dell’Ascendente, i nu¬ 
meri corrispondenti alla CASA. 

2. Disegnate con il pennarello nero, 
nella loro giusta posizione, i PIANE¬ 
TI, prendendo le coordinate dalla se¬ 
zione POSIZIONI PLANETARIE 
del tabulato (per i simboli dei pianeti 
potete consultare la parte finale di 
questa spiegazione). 

3. Leggete la prima riga nella sezio¬ 
ne ASPETTI del grafico, e tracciate 
una linea che congiunga il SOLE con 
NETTUNO. Se l’aspetto è positivo la 
linea sarà tracciata con il pennarello 
blu (come in questo caso), se, al con¬ 
trario, l’aspetto è negativo, la linea 
sarà tracciata con il pennarello rosso. 
Proseguite in questo modo per tutti gli 
aspetti. 

La carta del cielo natale appena di¬ 
segnata non è altro, quindi, che la rap¬ 
presentazione grafica dei complessi 
calcoli eseguiti per mezzo del pro¬ 
gramma OROSCOPO. Se un giorno 
decideste di chiedere un consulto a un 
astrologo, non scordate di portare la 
carta da voi disegnata. Gli risparmie¬ 
rete una buona mezz’ora di lavoro, 
che in questo caso, potrà essere dedi¬ 
cata all’interpretazione. E con le tarif¬ 
fe in atto non è poco. 

Maurizio Mangano 

\ 

Di questo programma Appli¬ 
cando non pubblica il listato, 
ma offre il dischetto che con¬ 
tiene anche il programma 
Voce, a un prezzo molto con¬ 
tenuto (30.000 lire) compren¬ 
sivo di spese di spedizione 
per raccomandata. Le istru¬ 
zioni per il funzionamento 
dei programmi sono regi¬ 
strate nel dischetto stesso. 

Per ordinarlo, utilizzate il 
buono contenuto del Disk 
Service. 

1 - ¥ 
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Tutto è sopportabile, ma non che un improvviso black out 
'$ 3 ' nullifichi ore e ore di paziente e prezioso lavoro 

<$?/ all’elaboratore. La tensione non deve venire mai a 

mancare: basta una frazione di secondo perché accada 
l’irreparabile. Le soluzioni, per una corretta prevenzione, 
ci sono, e si chiamano stabilizzatori, separatori di rete, 
gruppi di continuità. 


La rete è stabile? 


VI In personal sulla scrivania di 
ogni colletto bianco" era la fi¬ 
losofia di Steve Jobs. Non c’è proprio 
riuscito, ma sono in moltissimi oggi 
che hanno accettato un elaboratore 
personale come normale strumento di 
lavoro, e come tale va salvaguardato 
in tutto e per tutto. A prescindere dal¬ 
le normali precauzioni che un utente 
dovrebbe prendere (back up dei dati, 
pulizia e mantenimento dei sistemi), 
c’è sempre la possibilità di sbalzi di 
tensione o di improvvisi black out a 
danno di questi sistemi. È noto infatti 
che ogni calcolatore, grande o piccolo 
che sia, ha necessità di essere alimen¬ 
tato dalla rete di distribuzione dell’e¬ 
nergia elettrica. Normalmente la rete 
ENEL è in grado di fornire una tensio¬ 
ne alternata di 220 V a una frequenza 
di 50 Hz, atta ad alimentare sufficien¬ 
temente la gran parte delle apparec¬ 
chiature usate quotidianamente. 

È però indiscutibile che l’alimenta¬ 
zione di un computer deve rimanere 
stabile (sia in tensione sia in corrente) 
ed esente da disturbi, data la notevole 
complessità circuitale di questa mac¬ 
china. La tensione, che determina l’ef¬ 
ficienza dell’alimentatore, non deve 
assolutamente venire a mancare nep¬ 
pure per un ciclo di rete; un incidente 
del genere, infatti, sarebbe sufficiente 
a cancellare la memoria a semicondut¬ 
tori interna al calcolatore, oppure a 
danneggiare l’operazione di lettu¬ 
ra-scrittura del disco (sia esso floppy 
o hard disk). 

La frequenza è altresì importante in 
quanto contribuisce a rendere stabile 
la velocità a cui vengono fatti girare i 
dischi, e specialmente quelli ad alta 
densità di informazioni; poiché molti 
di questi sono sincronizzati con la fre¬ 
quenza di rete e non accettano varia¬ 
zioni di frequenza al di fuori di ± 50 


PPM, si potrebbero manifestare i co¬ 
siddetti fenomeni di "jitter" che cause¬ 
rebbero errori durante la lettura o la 
scrittura nelle memorie di massa. 

Le cause che normalmente possono 
indurre anomalie in un calcolatore per 
effetto della tensione di rete possono 
essere molteplici. Utilizzando il calco¬ 
latore per elaborare dati o per svilup¬ 
pare programmi, molte volte si corre il 
rischio di perdere quanto era prece¬ 
dentemente in memoria a causa di in¬ 
terruzioni anche minime della rete 
elettrica, anche a livello di qualche ci¬ 
clo; questo inconveniente si è incon¬ 
trato maggiormente nel periodo esti¬ 
vo, quando scariche sulla rete di distri¬ 
buzione (fulmini) provocano interru¬ 
zioni, oppure quando, sulla rete già 
sovraccarica, vengono allacciate mac¬ 
chine di notevole potenza con conse¬ 
guente soppressione di alcuni cicli. 

Oltre alla già accennata mancanza 
di rete, le sorgenti di disturbi in linea 


possono essere tensioni anomale pro¬ 
vocate da scariche elettrostatiche, 
macchine industriali con forti spunti o 
con continue variazioni dell’assorbi¬ 
mento di corrente (forni, frigoriferi), 
oppure i circuiti di variazione di velo¬ 
cità dei motori (macchine utensili). 

Si è cercato quindi, con l’andare del 
tempo, di diversificare fra loro questi 
fenomeni offrendo al mercato diverse 
soluzioni ai vari tipi di problemi inte¬ 
grando il sistema di calcolo con stabi¬ 
lizzatori, separatori di rete e infine 
gruppi di continuità. 

Stabilizzatori 

Lo stabilizzatore è un sistema in gra¬ 
do di correggere l’ampiezza della ten¬ 
sione presente al suo ingresso, sia essa 
superiore o inferiore alla tensione no¬ 
minale di 220 V. Esistono principal¬ 
mente due tipi di stabilizzatore: il pri- 


SOLUZIONI CON STABILIZZATORI E SEPARATORI DI RETE 


Tensione 

variabile 


Tensione 
variabile 
e inquinata 
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Gruppo di continuità Step Control nei modelli 250-400 e 700W. prodotti dalla Microset. 


mo è elettromeccanico e consente di 
ottenere in uscita una forma d’onda 
priva di deformazioni con un sistema 
che offre una grande affidabilità. 


Sarà utilizzato dove ci siano varia¬ 
zioni lente della tensione di rete oppu¬ 
re nei casi in cui la rete normalmente 
sia sovrabbondate o insufficiente (per 


SOLUZIONE CON GRUPPI DI CONTINUITÀ STATICI MONOFASE 


Tensione 

variabile 

Frequenza 

variabile 

Brevi e 

continuative 

interruzioni 


STEPCONTROL 100VA 


250VA 



400VA 


esempio: diversa lontananza da una 
cabina Enel). 

Nel caso ci siano però variazioni 
molto veloci della tensione di rete, co¬ 
me per esempio può accadere in vici¬ 
nanza di industrie dove ci siano inser¬ 
zioni e disinserzioni di carichi di note¬ 
vole potenza, c’è la necessità di usare 
stabilizzatori con capacità maggiori di 
recupero in termini di velocità; essi 
sono completamente a stato solido, ed 
eliminano quindi le inerzie meccani¬ 
che del tipo precedente. 

Nel caso in cui in rete ci siano inter¬ 
ferenze dovute a scariche elettrostati¬ 
che o alla vicinanza di impianti che 
usano variatori di velocità per motori, 
oppure ci sia la necessità di separare 
galvanicamente il calcolatore dalla re¬ 
te per avere più sicurezza all’operato¬ 
re, è opportuno usare un trasformato- 
re separatore (serie TSR), che elimina 
la possibilità che fra neutro e terra si 
formi una differenza di potenziale 
molto alta; questa infatti potrebbe es¬ 
sere causa di malfunzionamento del 
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Fotostudio ZANETTE-Sacile 


GRUPPI DI 
CONTINUITÀ' STATICI 
NO BREAK 


L’esigenza di disporre di una fonte 
energetica continuativa, indipendente 
anche per un considerevole tempo dalla 
rete di distribuzione, con sufficiente 
autonomia, ha creato la necessità di 
realizzare un tipo di macchina in grado 
di fornire energia molto stabile in 
tensione e frequenza con distorsione 
molto bassa, sia in presenza della rete o 
meno. 

Impiegando questi gruppi di continuità 
per alimentare calcolatori, macchine 
contabili ed altri sistemi con memoria 
voltatile, si elimina ogni tipo di 
inconveniente causato dalla mancanza 
di rete, fornendo alimentazione in 
continuità senza alcuna commutazione. 
Inoltre questi gruppi di continuità si 
comportano anche da separatori di rete, 
e sopprimono eventuali disturbi e 
transitori. 



Uscita sinusoidale 
220V ± 1,5% 
distorsione 3% 

50 Hz ± 0,03%. 
Rete annessa 
220V + 10%. 
Batterie ermetiche 
o stazionarie. 
Potenze da 100 W 
a 5 kW. 
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PER ZONE LIBERI 


PRODUCIAMO INOLTRE: STABILIZZATORI DI TENSIONE, FILTRI E SEPARATORI DI RETE. 
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Tutti i principali dati per identificare e scegliere il modello 



DIGITEK 

Via Valli 28 
Bagnolo in Piano (RE) 

ELCAI1 

V. Volpedo 8 
Milano 

ELETTRA 

Via Ponti 48 
Milano 

MEDEL 

V. Carretti 55 
Roma 

MICROSET 

Via A. Peruch 64 

Saeile (PN) 

PERTEL 

Via Ormea 99 

Torino 

Modello 

GR 200 

XT 701 

MINI UPS 
SOLA 

EL 2Ò0 

MINIBREAK 

300 

STEPC 

250 

0NTR0L 

400 

M0D 65W 

M0D 180W 

Dimensioni 

22x18x21 

18 x 40 x 36 

30x 48 x 26 

30 x 37 x 15 

40 x 70 x 26 

42 x 28 x 39 

40 x 70 x 26 

11 x 31 x 22 

11 x 31 x 22 

Peso in Kg 

6,6 

7 

61 

16 

70 

13,5 

60 

6,5 


Tensione 
entrata V 

220 

220 

220 +10* 

220 +10* 

220 +15* 

220 +10* 

220 i10* 

220 i10* 

220 +10* 

Tensione 
batteria V 

12 

24 

24 

12 

24 

24 

24 

12 

24 

Tensione 
uscita V 

220 

220 +4* 

220 +3* 

220 +5* 

220 +2* 

220 +3* 

220 +3* 

220 i10* 

220 i10* 

Numero 

uscite 

1 

2 

(indipendenti) 

2 

(in parallelo) 

1 

2 

(in parallelo) 

1 

1 

1 

1 

Potenza W 
uscita 1 

220 

450 

600 

220 

300 

250 

400 

200 

180 

Potenza W 
uscita 2 


200 






Tempo di 
intervento 

5-10 ms 

nullo 

nullo 

6 ms 

nullo 

nullo 

nullo 

4 ms 

4 ms 

Autonomia 

180 min. 

180 min. 

15 min. 

30 min. 

60 min. 

20 min. 

25 min. 

55 min. 

20 min. 

Batteria 

Ampère/h 

35/40 

35/40 

nc 

nc 

55 

24 

24 

40 

40 

Prezzo 

420.000 

1.880.000 

3.600.000 

nc 

1.500.000 

1.300.000 

2.020.000 

684.000 

858.000 


sistema di calcolo. 

È da notare che la coppia separatore 
di rete-stabilizzatore risulta un siste¬ 
ma molto efficace per la soppressione 
di disturbi in linea. 

Gruppi di 
continuità 

I gruppi di continuità invece, oltre 
ad avere le già citate qualità dei sepa¬ 
ratori e degli stabilizzatori, possono 
impedire che manchi, anche per una 
piccola frazione di ciclo, la tensione. 
Sono infatti macchine capaci di fornire 
una tensione stabile in uscita, sia come 
ampiezza sia come frequenza. 

La parte fondamentale, cioè quella 
che determina le principali caratteri¬ 
stiche del gruppo di continuità (stabili¬ 
tà, potenza e distorsione) è costituita 
dall’inverter, il quale provvede a rica¬ 
vare una tensione alternata da una 
continua. Esso è sempre in funzione e 
normalmente viene alimentato dalla 
rete opportunamente ridotta e rad¬ 


drizzata, ma quando questa viene a 
mancare le batterie provvedono ad ali¬ 
mentare l’inverter; questo tipo di fun¬ 
zionamento viene chiamato "no break" 
in quanto è l’inverter che in qualsiasi 
modo di funzionamento (rete o batte¬ 
rie), provvede ad alimentare il calcola¬ 
tore. È il tipo di inverter quindi a de¬ 
terminare la bontà della forma d’onda 
in uscita (distorsione). 

L’inverter più semplice è quello che 
in uscita fornisce una forma d’onda 
quadra, ha impiegi limitati come luci 
d'emergenza e circuiti che non abbiso¬ 
gnano di una tensione perfettamente 
sinusoidale. Una elaborazione del tipo 
precedente di inverter è quella che ri¬ 
costruisce la sinusoide per gradini fil¬ 
trando in modo passa—basso. 

Diventa molto importante in questo 
caso l’azione del filtro di uscita del 
gruppo. Per eliminare questo inconve¬ 
niente e per rendere quindi la sinusoi¬ 
de a sempre più bassa distorsione, l’in- 
verter viene fatto lavorare a modula¬ 
zione di larghezza d’impulso: la sinu¬ 
soide in questo caso presenta una di¬ 
storsione minore del 3%. 


Questo tipo di tecnologia, detta 
PWM, cioè modulazione ad alta fre¬ 
quenza, permette di ottenere anche un 
elevato rendimento del sistema, sfrut¬ 
tando quindi molto le capacità delle 
batterie in tampone. Anche i circuiti di 
controllo degli inverter assumono 
un’importanza notevole, in quanto de¬ 
vono provvedere a generare una fre¬ 
quenza di 50 Hz che deve ovviamente 
rimanere stabile. I componenti usati, 
quindi, devono essere di buona qualità 
e la soluzione migliore è quella di usa¬ 
re un quarzo per ottenere una buona 
stabilità (±3— PPM). 

La logica di controllo deve anche 
provvedere a fare in modo che la ten¬ 
sione di uscita rimanga stabile e deve 
anche proteggere l’inverter da even¬ 
tuali anomalie di funzionamento come 
sovraccarichi e cortocircuiti in uscita. 
Il caricabatterie a corrente costante in¬ 
terno al gruppo provvede a mantenere 
cariche le batterie quando c’è la pre¬ 
senza della rete. 

L’impiego di componenti professio¬ 
nali, di nuove tecnologie, di circuitene 
disposte su schede intercambiabili e 
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gruppi di potenza modulari ha contri¬ 
buito a raggiungere un elevato grado 
di affidabilità di queste macchine. 

Come scegliere 

Il mercato prevede diversi modelli, 
con caratteristiche, potenzialità, in¬ 
gombri e prezzi differenti. Per sceglie¬ 
re il sistema adatto alle proprie esigen¬ 
ze bisogna in primo luogo stabilire 
quant’è il consumo del personal e delle 
eventuali periferiche da salvaguadare. 
Per fare ciò è indispensbile un ampe¬ 
rometro per corrente alternata possi¬ 
bilmente a tenaglia. 

Si fa passare nella tenaglia il cavo 
della macchina che si vuole testare 
mentre è in funzione e si leggono sul¬ 
l’amperometro i valori d’intensità di 
corrente. Da tenere presente che al 
consumo di energia di un personal 
contribuisce essenzialmente la sua 
unità centrale, la Cpu, ma soprattutto 
le due memorie, quella permanente 
Rom, e quella operativa Ram. 

In ogni modo da un calcolo fatto da 
Applicando è emerso che un Apple//e 


assorbe da 40 a 45 watt, 95 se si aggiun¬ 
gono il monitor (30 watt) e un drive 
(15 watt). A questo bilancio devono 
poi essere sommati altri 30 watt se si 
adopera la stampante e altri 15 per il 
drive aggiuntivo. 60 watt richiede in¬ 
vece il Macintosh nella configurazioe a 
128Kb a cui se ne aggiungono 20 per il 
drive aggiuntivo e 30 per la stampante. 
Da questa analisi sommaria si può de¬ 
durre che un utente Apple o di una 
macchina con analoghe prestazioni 
debba orientarsi su gruppi di continui¬ 
tà a partire da 2—300 Watt per coprire 
l’energia assorbita dal sistema. 

Un’ultima chiave di lettura nella 
scelta del sistema è il tempo d’inter¬ 
vento. I migliori modelli prevedono 
un tempo nullo cioè 0 secondi dal mo¬ 
mento dell’interruzione di tensione 
elettrica al momento dell’entrata in 
funzione del gruppo di continuità. 
L’Apple però, prima di spegnersi, ha 
una brevissima autonomia di 8/10 mil¬ 
lisecondi; quindi, per fare un esempio, 
un sistema con un tempo d’intervento 
di 5 millisecondi farebbe in tempo a 
sostituirsi all’Enel. 

Franco Milan 
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HAI PERSO 
LA MEMORIA? 


Ogni blackout o microinterruzione dell’energia elettrica provoca l’immediata 
cancellazione di tutti i dati inseriti nella memoria del tuo computer. 

Qualche volta il danno rappresenta il lavoro di una intera giornata. 

I GRUPPI DI CONTINUITÀ DIGITEK EVITANO QUESTI COSTOSISSIMI INCONVENIENTI. 
Il gruppo di continuità DIGITEK ad onda trapezoidale stabilizzata unisce al costo 


contenuto eccellenti prestazioni e garantisce la totale eliminazione dei disturbi derivanti 
da fluttuazione, da instabilità, da interruzioni di energia elettrica. 
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DIGITEK compuTER 


VIA VALLI, 28 -42011 BAGNOLO IN PIANO (Reggio Emilia) 
Tel. (0522) 61623 r.a. - Telex 530156 


La serie GCS “no stop” garantisce la totale eliminazione 
dei problemi di rete, (instabilità, microinterruzioni, 
disturbi di linea, black-out) su tutti i sistemi medio piccoli 
esistenti. 

GCS 150 Potenza max 1° convert. 150W 


GCS 300 

1° 

300 w 

GCS 500 

1° 

500 W 

GCS 600 e XT 700 

1° 

450 W 


2° 

200 W 

GCS1000 

r 

600 W 


2° 

300 W 

GCS 1300 

i° 

800 W 


2° 

500 W 

GCS2000 

1 ° 

2400 W 

GCS 2400 modulare a convertitori componibili da 400 

a 1200 Wat cad. per un totale di 2400 W 

Per richiedere Catalogo Generale, inviare L. 

2000 in francobolli 


GRUPPI C. 


Cognome _ 

Nome_ 

Via_ 

Città_ Cap. 
















One-liners 


B en dieci i programmi su una linea 
sola pubblicati in questa puntata! 
Tra questi ce ne sono alcuni ideati dai 
lettori di Applicando: si tratta degli 
one—liners 40, 41, 42, 43, 44, 45, in¬ 
viati rispettivamente da Riccardo Zu- 
lian, Oronzo Retino, Gian Luigi Piva, 
Alessandro Piraneo, Stefano Schem- 
bri e Gian Luca Belvisi. Il dischetto 
del servizio Disk Service che hanno 
scelto come premio sta viaggiando 
verso le loro case. 

Ecco il primo one —liner in assem¬ 
bler. Esegue la pulizia dello schermo 
in testo, con un piacevole effetto balle¬ 
rino. Per salvare su disco questa routi¬ 
ne dovete battere BSAVE BOUN- 
CE,A$30(1,L$52. Viene attivata con 
BRUN BOUNCE oppure, se il pro¬ 
gramma è già in memoria, con CALL 
768. 
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Un altro convertitore decimale/esa- 
decimale ma, contrariamente ai prece¬ 
denti, è il primo che per la conversione 
usa una routine inserita nelle ROM. 


. 10 

FOR A = 748 TO 775: READ V: POKE 

N 

CO 

f-S 

A.V: NEXT : INPUT 'NUMERO DE 
CIMALE:";D4:D = VAL (D4): POKE 


0,D - INT (D / 254) * 254: POKE 

CO 

+* 

1, INT (D / 254): CALL 748: PRINT 

(O 

: RUN : DATA 144,0,145,1,32 

_J 

,45,249,94 


One—liner grafico che fa uso, alter¬ 
nativamente, delle due pagine grafi¬ 
che per presentare disegni in sequenza 
continua. 



HGR : HGR2 :D = 1 : FOR P = 1 TO 
50: FOR J = 1 TO 2: POKE 230 
,32 * J: HC0L0R= RND (1) * 

7 ♦ 1:L = RND (1) * 279:M = 

RND (1) * 191: FOR X = 0 TO 
279 STEP 8: HPLOT X.191 TO L 
,N TO 279 - X,0: NEXT X: HC0L0R= 
RND (1) * 7 * 1: FOR Y = 0 TO 
19! STEP 4: HPLOT 279,191 - 
Y TO L.M TO 0,Y: NEXT Y: POKE 
- 14299 - D,0:D = 1 - D: NEXT 
J: NEXT P 


Normalmente sull'Apple //e e Ile il 
tasto DELETE non funziona. Ecco 
una routine in assembler che vi per¬ 
mette di utilizzare questo tasto per 


cancellare eventuali errori di battitura 
come se usaste l'Apple Writer. Viene 
salvata su disco con il comando BSA¬ 
VE DELKEY,A$3AC,L$20; ed è at¬ 
tivata con il comando BRUN DEL- 
KEY o, se già in memoria, con CALL 
940. Funziona solo in dos 3.3. 


o> 

*3AC.: 

3CB 








co 

n 
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FD 
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Ecco una breve e semplice routine 
che disegna, in alta risoluzione, i profi¬ 
li dell'Italia. Modificando i DATA 
può eseguire anche altri disegni. 

1 HGR2 : HC0L0R= 3: HPLOT 5.18 T0 
0.28 T0 5.40 T0 15,36 TÙ 29. 

« T0 32.55 T0 55,75 T0 76.4 
0 T0 83,105 T0 80.112 T0 80, 

115 TO 85.113 T0 90.108 T0 9 
0,103 T0 95,103 TO 92,95 T0 
87,93 T0 92.82 TO 103,90 TO 
105.85 TO 80.72 T0 82.68 T0 
73,66 TO 62,60 T0 58,48 T0 5 
0.40 T0 48,30 T0 60,23 TO 58 
,10 T0 45,5 TO 5,18 

Mini gioco di abilità per due perso¬ 
ne. A turno un giocatore pensa una 
parola, che sarà quella da nascondere, 
e ne comunica la lunghezza; l’altro, 
che deve indovinarla, può stabilire la 
velocità di apparizione 
(SPEED=l-5). Quanto più è lunga 
la parola e quanto più è alta la veloci¬ 
tà, maggiori saranno i punti in palio 
(PRIZE). Nascosta la parola, premete 
G per iniziare. Vince chi arriva prima 
al punteggio massimo fissato. La velo¬ 
cità di illuminamento delle lettere 
componenti la parola può essere mo¬ 
dificata variando il ciclo FOR T= 1 TO 
480/V, mentre il tempo a disposizione 
per la soluzione può essere cambiato 
modificando il ciclo T = 1 TO 3000. 
Attenzione: nell’ultima istruzione 
PRINT c’è un CTRL-G tra le virgo- 
lette. 




1 HOME : FOR I = 193 TO 218: POKE 
1350 4 1,1: NEXT : POKE 34,4 
: HOME : INPUT 'SPEEDU-5VU 

T— 

ORD":V,P4: HOME :L = LEN <P 

4): PRÌNT ‘PRIZE-:L * V: PRINT 
’G=G0": GET A4: FOR I = 1 TO 


o 

ro 

L:A = ASC ( MID4 (P4,I,D): 
POKE 1478 4 A,A - 44: FOR T 

(/> 

□ 

= 1 TO 480 / V: NEXT : POKE 
1478 4 A,A 4 128: NEXT : FOR 

T = 1 TO 3000: NEXT : PRINT 
" ;P4 


Questa routine scrive al centro dello 
schermo la frase contenuta nella varia¬ 


bile A$ e la fa ruotare verso sinistra. 
La velocità può essere modificata pre¬ 
mendo, in fase di esecuzione, la frec¬ 
cia destra per rallentare e la freccia 
sinistra per accelerare. Raggiunta la 
velocità desiderata, la si può mantene¬ 
re premendo un tasto qualsiasi. 


1 

TEXT 

: HOME 

:A4 = 'APPLICANDO 

CM 

"3- 

_ ■ 

:A = LEN (A4) - 1 : 

FOR I 

= 

0 TO L 

il = 0: VTAB 

12: HTAB 

o 

INT ((39 

- A) / 2): PRINT A 


4:B4 = R1GHT4 (A4,A) 

4 LEFT4 

<0 

■4-» 

(A4 

,1):A4 

= B4: FOR X 

= 1 TO 

w 

T: 

NEXT :! 

5 = PEEK ( • 

- 14384 

J 

):T 

= T 4 

(P = 149) :T 

= ABS 


(T 

- (P = 

134)): NEXT 



Questo breve one —liner grafico 
esegue un piacevole disegno in alta 
risoluzione che simula l'alba. 


pj 10 TEXT : HOME : HGR : HC0L0R= 1 
'fr : HPLOT 0,158 T0 279.158: HPLOT 

O 0,159 TO 279,159: HC0L0R= 3: 
w FOR T = 1 TO 100: HPLOT 139 

lo ,159 T0 INT ( RND (1) * 279 

□ ), INT < RND (1) * 159): NEXT 


Interessante e pratico one —liner. 
Converte un numero decimale (per 
esempio 128.52) nella frazione che lo 
genera, ridotta ai minimi termini. 


o 

(3 

</> 


1 C = .1: INPUT A4:A4 = , 0" 4 A4: 

FOR 1 = 1 T0 LEN (A4):G = 

G * I « ( NID4 (A4,1,1) = ’. 
*):C = C * <1 4 9 * (G > 0)) 

: NEXT :B4 = LEFT4 (A4, ABS 
(G - 1» 4 MID4 (A4,6 4 1): 

B = DAL (84) : FOR 1 = 1 T0 
8:2 = (1 4 (B / 2 = INT (B / 
2)) * (C ! 2 = INT (C / 2)) 

) » (1 4 4 * (B / 5 = INT ( 

B / 5)) * <C / 5 = INT (C / 
5))):B = B/Z:C=C/Z: NEXT 
: PRINT BVC 


Questo one—liner permette di sosti¬ 
tuire la testata del catalog (Disk Volu¬ 
me) con un altro nome. Il nuovo nome 
deve essere di 11 caratteri, spazi com¬ 
presi. Effettuato il cambiamento oc¬ 
corre inizializzare un dischetto nuovo 
per mantenere la nuova testata. 


10 

PRINT 'VECCHIO:':: FOR I = - 

in 

19524 T0 - 19537 STEP - 1: 


PRINT CHR4 ( PEEK (1)):: NEXT 

o 

; PRINT : INPUT 'NUOVO :';A 

co 

4: FOR 1 = 1 T0 11: POKE - 

V) 

I - 19525, ASC ( MID4 (A4.I, 


D) 4 128: NEXT : PRINT CHR4 


(4);'CATALOG' 

f -« 


Cento programmi one liner sono dispo¬ 
nibili su dischetto. I prezzi e le modalità 
d'ordine di questo e degli altri dischetti 
disponibili sono riportati nella rubrica 
Disk Service. 

- X 
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Basic Writer consente il collegamento diretto tra 
jèy l’ambiente di manipolazione del testo dell’Apple Writer e 
l’ambiente Basic Applesoft. Se poi Util Writer e Pro Writer... 

Potenziamo 
l’Apple Writer 


I pacchetti integrati sono ormai di 
moda, eppure anche il pacchetto 
più potente, il programma più sofisti¬ 
cato a volte mostra i suoi limiti. Un 
programma, come ogni altro strumen¬ 
to di lavoro, viene progettato per risol¬ 
vere un particolare tipo di problema. 
Con il tempo possono venir elaborate 
nuove strategie, i termini stessi del 
problema possono cambiare, devono 
essere messe a punto nuove soluzioni 
per vecchi problemi e altri problemi 
possono sovrapporsi. Senza un’ade¬ 
guata manutenzione anche il program¬ 
ma più sofisticato dopo alcuni anni di¬ 
venta obsoleto, poiché non riesce ad 
adeguarsi alle nuove necessità dell’u¬ 
tenza. 

Una strada, piuttosto battuta attual¬ 
mente, è appunto quella dell’integra¬ 
zione, che indubbiamente amplia mol¬ 
to le possibilità di impiego e, fatto non 
trascurabile, offre un invitante rap¬ 
porto tra prestazioni e prezzo, ma è 
bene diffidare dei programmi troppo 
pretenziosi poiché possono rivelarsi 
poco specifici e poco profondi: anche 
se si cerca di ottimizzare le risorse è 
fisicamente impossibile che lo stesso 
strumento possa risolvere tutto. 

Certamente a tutti, una volta o l’al¬ 
tra, utilizzando assiduamente un certo 
programma sarà capitato di dire: que¬ 
sto pacchetto è ottimo, certo che se 
potesse fare anche questo sarebbe fan¬ 
tastico! Certo sarebbe davvero fanta¬ 
stico un programma che cresce su mi¬ 
sura con le nostre esigenze, ma è poco 
realistico pensare di modificare e di 
personalizzare il software che ci inte¬ 
ressa. La soluzione è quella di creare 
del software specifico, potente e so¬ 
prattutto programmabile. 

Con Basic Writer si realizza appun¬ 
to un progetto di questo tipo. Mentre 


da una parte l’Util Writer e il Pro Wri¬ 
ter offrono il supporto necessario per 
eseguire complesse operazioni di au¬ 
tomazione d’ufficio e di stampa sofisti¬ 
cata, Basic Writer consente di realiz¬ 
zare un collegamento diretto tra l’am¬ 
biente di manipolazione del testo del¬ 
l’Apple Writer e l’ambiente Basic Ap¬ 
plesoft. 

Per capire la portata di questo passo 
basta riflettere sulle conseguenze più 
immediate che tutto ciò comporta: po¬ 
ter comunicare con il Basic consente di 
saltare da una parte all’altra con il du¬ 
plice vantaggio di essere in grado di 
intervenire sul testo attraverso l’ese¬ 
cuzione di un programma Applelsoft, 
riportando poi i risultati dell’elabora¬ 
zione all’ambiente testo, e nel contem¬ 
po di utilizzare la potenza del word 
processor nella stesura stessa del testo 
del programma. Se a ciò si aggiunge il 
fatto che tutto è perfettamente compa¬ 
tibile con i programmi scritti in WPL, 
con le utility dell’Util Writer e le riso¬ 
luzioni di stampa del Pro Writer, si ha 
la sensazione di poter usufruire delle 
potenzialità tipiche di una stazione 
professionale di elaborazione testi. 

Il programma 

Il programma naturalmente deve 
essere utilizzato unitamente all’ Apple 
Writer //, in versione sia italiana sia 
americana, distribuito dalla Apple 
Computer. Ecco la configurazione 
hardware minima: Apple //e, scheda 
80 colonne con espansione di memoria 
da 64 K, monitor, 1 Disk Drive, stam¬ 
pante Apple ImageWriter o Dot Ma¬ 
trix Printer o Epson MX III, RX, FX. 
Oppure: Apple//c, monitor, stampan¬ 
te ImageWriter. 


Basic Writer // mette a disposizione 
una lunga serie di facility che possiamo 
riassumere in quattro gruppi: 

1. Rapido collegamento all’ambiente 
Basic e strumenti per gestire questo 
collegamento. 

2. Programma Super—calcolatrice, 
che consente di effettuare complesse 
operazioni matematiche senza uscire 
dall’ambiente di elaborazione del te¬ 
sto. 

3. Programma Graphic Writer //, che 
consente di caricare dei grafici prece¬ 
dentemente costruiti, per esempio con 
un programma Basic, o con un qual¬ 
siasi pacchetto grafico, e di stamparlo 
integrato con il testo. 

4. Tutta una serie di nuovi comandi 
che vanno ad aggiungersi a quelli del 
word processor e che oltre ad ampliare 
alcuna funzioni preesistenti realizzano 
l’integrazione con il Pro Writer //. 

L’ambiente Basic 

Il collegamento con l’ambiente Ba¬ 
sic viene gestito da una serie di coman¬ 
di che permettono di esportare dal WP 
al Basic sia comandi, in modo diretto o 
sotto forma di linee di programma, sia 
parti del testo, inserendole automati¬ 
camente in opportune variabili Basic: 
<.BA x> Esegue in Basic il comando 
"x" e appena terminato torna in Apple 
Writer. 

c.BB x> Esegue in Basic il comando 
"x" e rimane in Basic. 

<.BC x> Continua l’esecuzione di un 
programma Basic precedentemente 
interrotto. 

Per esportare una parte di testo in 
Basic basta semplicemente specificare 
il nome della variabile in cui lo si vuole 
memorizzare tra due caratteri di con- 
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Una videata del word processor; è attivato, accanto al testo, il 
programma Super Calcolatrice. 


trol Y, quindi delimitare l’area da 
esportare con control T o control N; 
ecco un esempio: 

<control Y> A$=<control Y> 1247 
Ccontrol N> 

In questo esempio si è utilizzato un 
control N, poiché il dato da inserire 
era un numero e non un testo, ma 
questa scelta ha la validità di un pro¬ 
memoria perché da WP le variabili 
vengono tutte esportate e importate 
sotto forma di testo. 

Una volta impostata la riga dell’e¬ 
sempio precedente è sufficiente anda¬ 
re in ambiente Basic e digitare il co¬ 
mando &L per caricare tutte le varia¬ 
bili definite nel testo del WP nelle cor¬ 
rispondenti variabili Basic. A questo 
punto, una volta realizzato il passag¬ 
gio dei comandi e dei dati, il Basic può 
elaborare autonomamente le informa¬ 
zioni, per esempio attraverso un pro¬ 
gramma, e in un secondo tempo resti¬ 
tuire al WP i risultati di tale elabora¬ 
zione. Ecco i comandi disponibili per 
eseguire l’import—export delle varia¬ 
bili al WP: 

&R Riporta in ambiente WP. 

&S Riporta i contenuti di tutte le va¬ 
riabili comuni all’ambiente WP. 
&S,A$ Riporta solo il contenuto della 
variabile specificata anziché di tutte; è 
più rapido del comando precedente se 
non è necessario aggiornare tutte le 
variabili. 

&L,A$ Carica in Basic soltanto la va¬ 
riabile specificata. 

&S,A$ (! e &L,A$ (! Il punto esclama¬ 
tivo viene usato come metacarattere 
jolly e sta a signicare che il comando 
deve estendersi a tutte le variabili che 
matchano con i caratteri che lo prece¬ 
dono: per esempio per importare in 
Basic tutti gli elementi di un vettore 
A$ (,) è sufficiente digitare &L,A$ (! 


&P,A$ Con questo comando si posso¬ 
no inviare ad Apple Writer una serie 
di caratteri o dei comandi, come se 
questi appartenessero al glossario. Il 
breve programma che segue consente 
di caricare dal drive 1 in Apple Writer 
un file chiamato "ESTERNO": 

10 A$="ESTERNO" 

20 B$=chr$ (12)+A$+",Dl"+">2 
30 &P,B$ 

Dove chr$ (12) è il comando control 
L e > è il carattere di RETURN simu¬ 
lato per la versione italiana. 

Ma non è tutto; infatti Basic Writer 
consente una comunicazione comple¬ 
ta anche con i programmi scritti in 
WPL attraverso due comandi analoghi 
a quelli già descritti. 

&1 Richiama le variabili del WPL in 
Basic. 

&s Memorizza le variabili Basic nelle 
corrispondenti WPL. 

Poiché le varibili WPL e quelle Ba¬ 


sic hanno una denominazione diversa, 
i loro nómi saranno diversi a seconda 
dell’ambiente in cui ci si trova. Ecco la 
corrispondenza: 


Var WPL 

Var Basic 

$A 

WA$ 

$B 

WB$ 

$C 

WC$ 

$D 

WDS 

X 

x% 

Y 

Y% 

Z 

Z% 


Va infatti ricordato che il WPL con¬ 
sente soltanto 4 variabili di tipo stringa 
di massimo 64 caratteri ciascuna e 3 
variabili numeriche di tipo intero. Il 
Basic Writer consente di usufruire del¬ 
la grafica ad alta risoluzione, ma per 
fare questo, da Basic naturalmente, è 
necessario liberare la zona di memoria 
utilizzata dalle pagine grafiche e che 
normalmente è occupata da parte del¬ 
l’Apple Writer. Per fare questo sono 
disponibili 2 comandi che liberano la 
pagina desiderata: 

&G1 Predispone l’uso della pagina 1. 
&G2 Predispone l’uso della pagina 2. 

La memoria viene ripristinata auto¬ 
maticamente quanto si ritorna in Ap¬ 
ple Writer. 

Pochi comandi tutto sommato, ma 
estremamente potenti, che consento¬ 
no di utilizzare in modo integrato tre 
strumenti (il WP, il WPL e il Basic) 
per realizzare tutto ciò che si desidera 
da un elaboratore di testi. 

Due notevoli applicazioni sono ab¬ 
bastanza evidenti. Da una parte pos¬ 
sono essere risolti tutti quei problemi 
legati alla modulistica, che fino a oggi, 
senza un adeguato supporto di calco¬ 
lo, con un WP non potevano essere 
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Un esemplo di Intestazione in grafica HI-RES, a cui segue il testo in 
caratteri normali. 
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Una realizzazione del programma: nella stessa pagina sono affiancati il 
testo e un istogramma. 


gestiti. L’esempio tipico della fatture e 
delle parcelle è solo la punta di un 
iceberg, in realtà ovunque debbano 
coesistere maschere di input predefi¬ 
nite, informazioni da ricevere e elabo¬ 
rare, un output sofisticato da format¬ 
tare adeguatamente, non si è più co¬ 
stretti a delegare alcune funzioni a co¬ 
stosi pacchetti creati ad hoc; ora è in¬ 
vece possibile affidarle ad Apple Wri- 
ter. 

Dall’altra l’annoso problema del 
programmatore Basic, costretto a im¬ 
plementare il proprio software senza il 
supporto di un editor adeguato, può 
essere ora risolto digitando il pro¬ 
gramma direttamente nel WP e poi 
facendolo eseguire saltando in Basic. 
È sufficiente a questo scopo definirsi 
due comandi nel glossario, per esem¬ 
pio mela vuota A e mela vuota B, che 
rispettivamente inseriscono e tolgono 
in testa a ogni linea di programma il 
prefisso .BA; ecco come vanno defini¬ 
ti rispettivamente: 

Mela vuota A A Bé Fé<><>- 
.BA<A> 

Mela vuota BB Bé FéO.BAO 
<A> 

Chiaramente Apple Writer // più 
Basic Writer come editor portano via 
una buona fetta di memoria, ma se 
non si fa uso di Pro Writer e di altri 
fonts di caratteri restano liberi 21244 
bytes, più che sufficienti per definire 
ragguardevoli segmenti di program¬ 
ma. 

Anche i punti 2 e 3 possono essere 
considerati come dirette applicazioni 
delle possibilità offerte dalla program- 
mabilità. 

La calcolatrice 

Il programma che fornisce la facility 
della calcolatrice durante l’elaborazio¬ 


ne del testo è interamente scritto in 
Basic e fa un uso esteso del comando 
&P che consente di importare dal Ba¬ 
sic i comandi contenuti nel glossario. 
Questo programma viene automatica- 
mente caricato in memoria al momen¬ 
to del lancio di Basic Writer. Per ri¬ 
chiamarlo basta premere mela vuota 
K. Sono disponibili tutte le funzioni 
tipiche di una calcolatrice scientifica; 
in caso di bisogno è sufficiente preme¬ 
re ? per visualizzare una finestra con 
l’elenco dettagliato di queste funzioni 
e del modo di attivazione. Un fatto 
molto interessante è che è possibile 
spostarsi lungo il testo mantenendo at¬ 
tiva la calcolatrice, sia con le frecce sia 
con control B e control E. 

Inoltre, e non c’è da stupirsi, la cal¬ 
colatrice può comunicare direttamen¬ 
te con l’ambiente WP. Infatti è possi¬ 
bile assumere come input dati presenti 
nel testo e scaricare sulla pagina, nella 
posizione del cursore, il risultato del 
calcolo che compare sul visore della 
calcolatrice, rappresentato sulla linea 
di comando dell’Apple Writer. 

La grafica 

Un’altra caratteristica che rende 
praticamente unico Basic Writer è 
quella di poter mandare in stampa 
contemporaneamente testo e alta riso¬ 
luzione. Ma non solo: è possibile an¬ 
che intervenire sul grafico adeguando¬ 
lo alla formattazione del testo. È suffi¬ 
ciente che il grafico sia salvato sul di¬ 
schetto di lavoro, in DOS 3.3, quindi è 
possibile costruire i grafici con pro¬ 
grammi del tipo Visiplot o Mouse- 
Paint e poi utilizzare il programma 
GRAPHIC per mandarli in stampa. 
Per prima cosa è necessario caricare il 
programma di grafica in memoria con 
il comando: 


<control P> BA LOAD GRA¬ 
FICA 1 RETURN 

A questo punto è sufficiente inserire 
nel testo al punto desiderato la linea 
seguente: 

.BB RUN:"NOME GRAFICO.Dl" 

In questo modo quando in fase di 
stampa il programma elabora una riga 
di questo tipo, viene caricato e stam¬ 
pato il grafico indicato, secondo i pa¬ 
rametri specificati in Graphic Writer. 
Questi parametri possono essere mo¬ 
dificati a seconda delle esigenze. E 
possibile modificare i parametri di 
stampa caricando in memoria Graphic 
Writer e cambiando i valori di densità 
di stampa, di scala verticale, scala oriz¬ 
zontale e specificando la posizione re¬ 
lativa del disegno all’interno della pa¬ 
gina di testo: giustificato a sinistra, 
giustificato a destra o centrato. Tutto 
ciò consente di produrre documenti 
correlati da grafici di tutti i tipi, a bar¬ 
re, a torta, istogrammi, intestazioni in 
alta risoluzione, isolati o inframmez¬ 
zati nel testo. Oltre a ciò è sempre 
possibile accedere alle diverse fonti 
messe a disposizione dal Pro Writer: 
dal grassetto al corsivo, dal classico al 
quadrato eccetera. 

Il potenziamento 
di Apple Writer 

Ecco infine un rapido cenno sui 
nuovi comandi che Basic Writer mette 
a disposizione o che semplicemente 
estende e potenzia. 

Funzione di compattamento del vi¬ 
deo per nascondere i caratteri di con¬ 
trollo; a questo proposito occorre ri¬ 
cordare che BW corregge l’errore, in¬ 
dotto sulle giustificazioni, dalla pre¬ 
senza dei caratteri di controllo in fase 
di stampa. 

Funzione di sovrapposizione conti¬ 
nua del tasto, che consente di mante¬ 
nere inserito il corrispondente coman¬ 
do di Apple Writer anche dopo essersi 
spostati lungo il testo. Questo è infatti 
indispensabile se si desidera, per ricol¬ 
legarsi al discorso della modulistica, 
inserire in modo ripetitivo una serie di 
dati all’interno di una maschera di in¬ 
put predefinita. 

Glossari di comandi per le stampan¬ 
ti Apple ed Epson. 

Il programma Basic Writer // è pro¬ 
dotto e distribuito dalla Polisistemi srl, 
via Derna 19,20132 Milano, a 130 mila 
lire più Iva. E anche disponibile il pac¬ 
chetto comprendente anche il pro¬ 
gramma Pro Writer, e costa 195 mila 
lire più Iva. Marco Gussoni 
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da: C. RfìGG I 0 s N c. 

56030 F'enqnono pi Vio Spinelli 8 
tei. 0587-616207 

fi I cun i esemp i : 

Apple//e originale 909.000 
idem c.s. prodono Itolia 635.000 

sch.80 col +64k originale 351.000 
idem c.s. prodotto Italia 79.000 

interfaccia seriole orig. 150.000 
idem c.s. prodotto Italia 125.000 

duodisk originale 799.000 

idenri c.s. prodotto itolia 545.000 
dr ive ogg .compat ib. //c 365.000 
mouse originale c/man. 169.000 
monitor //e originale 259.500 

floppy 5"e1 /4 3.390 

microfloppy 3" e 1 /2 8.475 

IBM XT compatibile prodotto Itolia 
XT 256k rom e 1 drive 1.849.000 
idem c.s. con 2 drive 2.129.000 
c s . con HD 10 mego 3.499 000 
c.s. con HD 20 mego 4.290.000 

... e tante altre cose a 
condizioni favolose . 

prima di ogni acquisto . 
senti le ns. proposte . . . 
da noi spendi meno! 

Listino completo inviondo 4.000 lire 
o cori lo primo fornitura. 

Materiali consegnati a domicilio con 
goranzio 1 2 mesi completo e chiusolo 
SODDISFATTO 0 RIMBORSATO 
entro otto giorni 

Sconti per quantità 

I prezzi non comprendono PI V A. 

IBM è uri rnorchio reg.lBM cor por. 
Apple, Duodisk, Macintosh, sono 
marchi di appiè computer ine 


Mouse 

Inuerse 

ROM 

Per dialogare meglio 
con II tuo Rpple// 





Se utilizzando il tuo nuovo Apple // hai dei problemi di 
visualizzazione dei testi in Inverse (testo nero su fondo 
chiaro), se compaiono simboli strani, vuol dire che stai 
usando un programma studiato prima dell’introduzione dei 
caratteri speciali del Mouse. Niente paura: Applicando ha 
preparato per te la Mouseinverse ROM che inserita nel tuo 
Apple // ti consente di utilizzare senza problemi tutti i 
programmi, sia quelli che non impiegano i caratteri del 
mouse, sia quelli più recenti che li usano semplicemente 
cambiando la tastiera con il commutatore presente sul tuo 
Apple 



Ecco come si trasforma, con 



l'utilizzo della Mouseinverse ROM, la 


visualizzazione del programma Apple Writer. 


La Mouseinverse ROM costa L 47.200 e la trovi presso i 
rivenditori autorizzati Apple Computer 

Oppure la puoi ordinare direttamente a Editronica srl Corso 
Monforte 39 20122 Milano allegando assegno o ricevuta di 
versamento sul Conto Corrente Postale N 19740206. 











































Il controllo del valore di una variabile è uno dei metodi più 
efficaci per l’individuazione degli errori (debugging) di un 
programma. La utility in Applesoft presentata in questo 
articolo permette all’utente di visualizzare i valori di quasi 
tutte le variabili e può essere richiamata dall’interno del 
programma nel momento voluto. 



Se la variabile 
fa DUMP 


A i tempi andati, quando la memo¬ 
ria di un computer era fatta di 
ciambelle magnetiche chiamate nu¬ 
clei, uno strumento importante utiliz¬ 
zato dai programmatori per trovare gli 
errori nei loro programmi era il core 
dump, o riversamento del nucleo. Un 
riversamento di nucleo o memoria è 
l’uscita, solitamente su una stampan¬ 
te, del contenuto di tutte le locazioni 
di memoria che si trovano in una fascia 
di indirizzi specificata. Riversando la 
parte della memoria in cui sono imma¬ 
gazzinate le variabili del programma il 
programmatore ottiene un’istantanea 
(snapshot) dello stato del programma 
al momento in cui è stato fatto il river¬ 
samento di memoria. 

I riversamenti di memoria sono 
stampati di solito nel formato esadeci- 
male, e quindi si ha in genere il compi¬ 
to piuttosto formidabile di decifrare i 
valori delle variabili. Nell’Apple i ri- 
versamenti di memoria si possono ot¬ 
tenere con l’impiego del monitor, ma 
il dump è pur sempre nel codice esade- 
cimale, relativamente imperscrutabi¬ 
le. 

Quando si fa il debugging di un pro¬ 
gramma in Applesoft si può guardare 
il valore di qualsiasi variabile o insie¬ 
me di variabili semplicemente stam¬ 
pandole con PRINT. Queste istruzio¬ 
ni PRINT di diagnosi possono essere 
messe nel programma stesso, o se ne 
può fare l’esecuzione immediata du¬ 
rante una pausa nell’esecuzione del 
programma. 

Una difficoltà di questa prassi è che 
in molti casi non sappiamo quale va¬ 
riabile (o combinazione di variabili) 
abbia il valore che sta causando il fun¬ 
zionamento difettoso del programma. 
Ciò che occorre è un modo semplice di 


riversare i valori di tutte le variabili del 
programma, in modo di avere un’i¬ 
stantanea completa dello stato del 
programma. Il programma di utility 
VARIABLE DUMP (riversamento 
delle variabili) descritto in questo arti¬ 
colo svolge appunto questa funzione 
di debugging. 

Come usare 
il programma 

Questo programma di debugging 
può essere usato in tre semplici passi: 

1. Aggiungere le istruzioni dei pro¬ 
gramma VARIABLE DUMP al pro¬ 
gramma che si sta collaudando. 

2. Far girare il programma che si sta 
collaudando. 

3. Trasferire il controllo alla routine di 
riversamento delle variabili. 

Il programma di utilità VARIA¬ 


NE = 2 
C = 1 
HT = 10 
VX = 1 
HLX = 1 
S = 8 
HI = 0 
M2 = ? 

VSX = 2 
CS = 8 
K = 13 
OS = 8 
RX = 20000 
MD = 10000 
SU = 30000 
NIX = 1 
A* = FINE 

Dump delle variabili di un 
programma al termine della 
sua esecuzione. 


BLE DUMP gestisce tutti i tipi di va¬ 
riabili e le matrici unidimensionali. 
Non gestisce le matrici multidimensio- 
nali. Se lo facesse, non solo il pro¬ 
gramma sarebbe troppo complesso e 
lungo, ma il riversamento delle matrici 
pluridimensionali multiple sarebbe 
voluminoso, e non sarebbe in linea ge¬ 
nerale di aiuto nel debugging del pro¬ 
gramma. Si possono riversare in modo 
selettivo gli elementi voluti di simili 
matrici multidimensionali con la tecni¬ 
ca convenzionale dell’istruzione 
PRINT. La utility VARIABLE 
DUMP identifica ogni variabile dalle 
sole prime due lettere del suo nome. 
Ciò non dev’essere considerato una 
vera limitazione, in quanto l’Apple- 
soft stesso impiega solo le prime due 
lettere per identificare i nomi di varia¬ 
bile. Così se c’è un’eventuale incertez¬ 
za circa la variabile del programma 
che viene riversata, questa incertezza 
è causata dal fatto che due o più nomi 
di variabili cominciano con le stesse 
due lettere e che l’Applesoft le tratta 
come un’unica variabile. 

L’effettuazione 
di Variable Dump 

Il primo passo, quello che consiste 
nel mettere le istruzioni di riversamen¬ 
to nel programma in prova, si può rea¬ 
lizzare in vari modi. Naturalmente le 
sue istruzioni potrebbero essere battu¬ 
te direttamente nel programma. Però 
questo procedimento è tedioso e porta 
via tempo, e scoraggerebbe dall’uso 
frequente della routine. Un metodo 
più efficiente consiste nel fare l’EXEC 
delle istruzioni nel programma in pro¬ 
va da un file di testo. 
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Listato 1 


100 REM ********************** 

200 REM * VARIABLE.DUMP * 

300 REM * BY TOM GABRIELE * 

400 REM * COPYRIGHT (C) 1985 * 

500 REM * BY APPLICANDO 4 * 

600 REM * MICROSPARC, INC * 

700 REM ********************** 

63000 ZO = 0:Z1 = 0:Z2 = 0:Z4 = 0:Z5 = 0:Z6 = 0:Z? = 0:Z8 = 
0:Z9 = 0 

63010 GOSUB 63360 

63020 HOME : PRINT "<C) BY APPLICANDO 4 MICROSPARC, INC. 1 : 

PRINT : PRINT 'APPLESOFT OAR1ABLE DUMP': PRINT 
63030 1F Z? = Z8 GOTO 63130 
63040 GOSUB 63270 

63050 GOSUB 63320: 1F (ZO) GOTO 63120 

63060 GOSUB 63300 

63070 PRINT CHR* (ZI): CHR$ <Z2): 

63080 IF (Z4) THEN PRINT " ;Z37.: GOTO 63110 

63090 IF (Z5) THEN PRINT '* = ';Z3*: GOTO 63110 

63100 PRINT ' = ’;Z3 

63110 GOSUB 63310 

63120 Z9 = Z9 + 7: GOTO 63030 

63130 GOSUB 63440 

63140 IF Z9 > = Z8 THEN PRINT : PRINT 'FINE DEL RIVERSANE 
NTO DELLE VARIABILI': END 
63150 GOSUB 63270 

63160 PRINT 'MATRICE ':: GOSUB 63400 
63165 IF PEEK (Z9 ♦ 4) > 1 THEN HTAB 11: PRINT "MATRICE M 
ULTIDIMENSIONE’: GOTO 63260 
63170 GOSUB 63300 
63180 PRINT 

63190 FOR Z6 = 0 TO PEEK (Z9 ♦ 6) ♦ 256 * PEEK <Z9 + 5) - 
1 

63200 PRINT 'ELEMENTO C:Z6:') = *; 

63210 IF (Z4) THEN PRINT Z37.(Z6): GOTO 63240 
63220 IF (Z5) THEN PRINT Z3*(Z6): GOTO 63240 
63230 PRINT Z3(Z6) 

63240 NEXT Z6 

63250 GOSUB 63310 

63260 GOSUB 63390: GOTO 63140 

63270 ZI = PEEK (Z9):Z2 = PEEK (Z9 + 1) 

63280 Z4 = ZI > 127:Z5 = Z2 > 127 
63290 RETURN 

63300 POKE 29,90 + 128 * Z4: POKE 29 4 1,51 + 128 * Z5: RET 
URN 

63310 POKE Z9,Z1: POKE Z9 ♦ 1,22: RETURN 
63320 ZO = 0 

63330 IF NOT (ZI = 90 OR ZI = 138) THEN RETURN 
63340 IF <(Z2 - 128 * Z5) ) 47) AND ((Z2 - 128 * Z5) < 58) 
THEN ZO = 1 
63350 RETURN 

63360 Z9 = PEEK (105) + 256 * PEEK (106) 

63370 Z8 = PEEK (107) + 256 * PEEK (108) 

63380 RETURN 

63390 Z9 = Z9 + PEEK <Z9 + 2) ♦ 256 * PEEK (Z9 4 3): RETU 
RN 

63400 PRINT CHR* (ZI): CHR* (Z2): 

63410 IF (Z4) THEN PRINT : : RETURN 

63420 IF (Z5) THEN PRINT '**; 

63430 RETURN 

63440 Z8 = PEEK (109) 4 256 * PEEK (110): RETURN 


Potete creare un file di EXEC ag¬ 
giungendo al listato 1 la seguente li¬ 
nea: 


1 PRINT CHR$ (4)"OPEN VAR- 
DUMP": PRINT CHR$ (4)"WRI- 
TE VARDUMP":POKE 
33,33:LIST 63.000 - :PRINT CHR$ 
(4)”CLOSE" 


Dopo di ciò basterà che introduciate 
il comando EXEC VARDUMP ogni 
qualvolta vorrete aggiungere al vostro 
programma la routine di riversamento 
delle variabili. 

Un’altra alternativa, per i program¬ 
matori provvisti dell’Apple DOS 3.3 
Toolkit, consiste nell’impiego dell’A- 
PA per: 

1. Hold (trattenere) il programma in 
prova; 

2. Load (caricare) le istruzioni del pro¬ 
gramma di riversamento delle variabi¬ 
li; 

3. Merge (fondere) il programma in 
prova. 

Il secondo passo consiste nel far gi¬ 
rare il programma in prova. Potreste 
interrompere la sua esecuzione in vari 
punti opportuni per visualizzare river¬ 
samenti di variabili. Per esempio po¬ 
treste visualizzare riversamenti: im¬ 
mediatamente prima che appaiano i 
sintomi di errore, dopo che si sono 
presentati, quando il programma salta 
in aria, alla fine di ogni iterazione nel 
corso di un lungo loop di istruzioni, 
oppure prima e dopo calcoli critici e 
complessi. 

Il punto importante è che il pro¬ 
gramma in prova deve essere fatto gi¬ 
rare in combinazione con il program¬ 
ma di riversamento delle variabili. 

Il terzo passo consiste nel far partire 
l’Apple con l’istruzione 63000, l’inizio 
della routine di riversamento delle va¬ 
riabili. Potete fare anche questo in di¬ 
versi modi. Quello più semplice, dopo 
aver arrestato il programma, consiste 
nel dare il comando immediato GO¬ 
TO 63000. 

Potreste anche inserire l’istruzione 
ONERR GOTO 63000 nel program¬ 
ma, per avere la visualizzazione auto¬ 
matica di un riversamento ogni volta 
che capita un errore di Applesoft o di 
DOS. 

Un altro modo molto efficace per 
chiamare i dump di variabili consiste 
nel costellare il programma di istruzio¬ 
ni GOSUB 63000 messe in punti op¬ 
portuni. La risultante serie di istanta¬ 
nee dello stato del programma potrà 
fornirvi una descrizione informativa e 
dinamica del comportamento del pro- 
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gramma. Questa tecnica di debugging, 
combinata con la caratteristica di 
TRACE dell’Applesoft, dovrebbe in¬ 
trappolare anche il più sfuggente degli 
errori. Naturalmente per usare questo 
metodo del GOSUB un RETURN de¬ 
ve sostituire l’istruzione END nella li¬ 
nea 63140. 

Se lo preferite, potete ottenere una 
registrazione stampata dei valori delle 
variabili nel modo normale, abilitando 
la stampante con un’istruzione PR # n 
(dove n è il numero di slot della stam¬ 
pante) prima di dare esecuzione alla 
routine di riversamento. 

Le limitazioni 

Le istruzioni di riversamento delle 
variabili sono numerate a partire dalla 
linea 63000. Pertanto non si possono 
collaudare i programmi che hanno 
questi numeri di linea estremamente 
alti. Ma è raro che i programmi abbia¬ 
no numeri di istruzione in questa fa¬ 
scia. 

Il programma VARIABLE DUMP 
è scritto in Applesoft e pertanto ha 
proprie variabili. I programmi che 
hanno questi stessi numeri di variabile 
non possono essere provati. Per ridur¬ 
re al minimo questa eventualità, il pro¬ 
gramma di riversamento contiene sol¬ 
tanto 10 variabili e utilizza come nomi 
da Z0 a Z9. Per quei pochissimi pro¬ 
grammi che abbiano una o due varia¬ 
bili del genere, potreste cambiare le 
variabili in conflitto con la utility di 
riversamento in variabili tipo Integer, 
vale a dire da Z0% a Z9% (eccettuata 
Z3). 

Come funziona 

Il funzionamento della utility di ri- 
versamento è piuttosto semplice. Pri¬ 
ma essa esplora tutte le variabili sem¬ 
plici e poi tutte le matrici. La variabile 
Z9 contiene l’indirizzo della successi¬ 
va variabile da riversare, mentre Z8 
segna la fine di quella tavola delle va¬ 
riabili. La prima istruzione assicura 
che siano introdotte voci nella tavola 
delle variabili per tutte le variabili del 
programma di riversamento stesso. 
Ciò garantisce che il formato e i punta¬ 
tori di quelle tavole dei dati saranno 
stabili (fissi) durante la loro esplora¬ 
zione da parte della utility di riversa¬ 
mento. 

Di mano in mano che la scansione 
raggiunge ciascuna variabile i primi 
due caratteri del suo nome sono salvati 
in ZI e Z2 mentre riceve temporanea¬ 


mente il nuovo nome di Z3. Poi viene 
visualizzato sullo schermo il valore di 
Z3 dopo il nome contenuto in ZI e Z2. 
Completata l’operazione viene ripri¬ 
stinato (con POKE) nella variabile il 
nome esatto, e la scansione continua 
passando alla variabile seguente. 

Il tipo di variabile è indicato dai bit 
più significativi (MSB, ossia most si- 
gnificant bit) dei caratteri ASCII che 
codificano le prime due lettere del no¬ 
me della variabile. Se entrambi gli 
MSB sono 0 la variabile è reale. Se 
entrambi sono 1 la variabile è intera. 
Se l’MSB del primo carattere è uno 0 
ma l’MSB del secondo è un 1 la varia¬ 
bile è una stringa. 

Il programma di utility memorizza 
questi MSB nelle variabili Z4 e Z5, e li 
adopera per stabilire il tipo della varia¬ 
bile che viene esplorata, in modo di 
poter usare il tipo di variabile appro¬ 
priato per Z3 quando ne stampa il va¬ 
lore. 

Con queste nozioni e con l’attenta 
lettura del manuale il funzionamento 
del programma dovrebbe apparire 
sempre più chiaro. La utility è compo¬ 
sta a moduli in varie subroutine per 
rendere più facile la sua comprensione 
e per ridurre al minimo il numero delle 
istruzioni. 

Nella scansione delle variabili sem¬ 
plici il puntatore Z9 è incrementato di 
7 per puntare alla variabile semplice 
seguente. (Per descrivere ogni variabi¬ 
le semplice vengono usati sette byte.) 
Nella scansione delle variabili di ma¬ 
trice il puntatore Z9 è incrementato 
del numero totale dei byte usati per 
memorizzare quella matrice. Questo 
conteggio dei byte è contenuto nel ter¬ 
zo e quarto byte della tavola dei dati di 
quella matrice. 

Dopo che il nome di ogni variabile 
semplice è stato estratto dalla tavola, 
viene controllato per vedere se si tratti 
di una variabile del programma di uti¬ 
lity stesso (da Z0 a Z9), dato che que¬ 
ste variabili sono immagazzinate nella 
stessa tavola di dati con le variabili del 
programma in prova. Se la variabile 
che viene esplorata è una variabile del 
programma di utility viene semplice- 
mente saltata. Viene controllato an¬ 
che il numero di dimensioni di ciascu¬ 
na variabile di matrice (nel quinto byte 
della sua tavola dei dati). Se è maggio¬ 
re di 1 la variabile di matrice viene 
saltata. 


Questo programma è disponibile su 
dischetto. L'elenco, i prezzi e le 
modalità d'ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 
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• Animation Toolkit 

Mette a disposizione una serie funzioni e di utility grafi¬ 
che che consentono, a chi desidera programmare degli 
effetti di animazione su Macintosh, di costruirsi tutti i 
fotogrammi digitali e successivamente di simulare l’anima¬ 
zione. Per utilizzare il mouse e la grafica con maggiore 
facilità, il programma è supportato da una serie di funzioni 
accessorie. Distribuito da Bits & Bytes a lire 154.780. 



• Ready Set Go! 


Si propone di risolvere, in modo semplice ed efficace, i 
problemi di chi deve comporre delle pagine di tipo giorna¬ 
listico. Con questo strumento è possibile formattare op¬ 
portunamente sia il testo, definendo la struttura della pagi¬ 
na, la dimensione dei caratteri e le fonti, sia la parte 
grafica, spostando le figure nelle posizioni desiderate, mo¬ 
dellandole, ingrandendole e ritagliandole fino a ottenere il 
risultato desiderato. È possibile organizzare le figure in un 
archivio su disco per ripescarle e modificarle all’occorren- 
za. Il testo può essere inserito direttamente o incollato da 
applicazioni come Mac Write o MS Word e può venire 


rrog«tt»tioM li <Jb velivolo *}»ZÌ»ll. 
» j«rò 1* fouibililà «pplicativ* 
li itnimzmti iaformztici sono in 
gnlo li trovir* tapi sbocchi tacX« 
uno arili 4*U* sciane*: la 
scienza iella materia vivente, la 
biologi». Di tuanio Watson e Click 



pose. 


la loro pietra miliare 


ulta 


storia iella V io logia, descrive nlo quella 


Il DHA è «no stupendo serbatoio di informazioni per la vita, costituiti 

legati tra loro a due a due per costruire una stiuttura binaria Le cat 
aminoacidi, che si susseguono a comporre l'intera molecola, costituii 
geni, ovvero il luogo die identifica singole informazioni biologici 


giustificato secondo vari criteri. Le pagine di Ready Set 
Go! possono essere stampate sia con l’ImageWriter che 
con la Laser Printer se si desidera una qualità di stampa 
superiore. Il programma è distribuito da Paolini a lire 
411.820. 


• ExpertLogo 

ExpertLogo è la prima versione del Logo compilata. Per 
questo risulta notevolmente più veloce delle altre. Oltre 
alla maggiore velocità, questo programma unisce l’estre¬ 
ma facilità d’uso propria di un linguaggio didattico come il 
Logo, con le potenzialità del Mac. Grazie alle finestre 
multiple, ai menù estensibili e alla possibilità di sopportare 
un uso intensivo del mouse, questo compilatore Logo può 
senz’altro competere con altri linguaggi di programmazio¬ 
ne più avanzati ed evoluti. Il programma è distrubuito da 
Bits & Bytes a lire 431.000. 

| é File Edit Run Help System 

= EHperLogo Listener ^ 

TARGET 
ARR0U 

Type RRCHERY in thi3 windoui and then hit thè RETURN key 
Type ARCHERY in this uiindout and then hit thè RETURN key 
ARCHERY 
address 


Graphics LUindoiu 
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• MacAdvantage-UCSD 
Pascal 

L’UCSD è la versione elaborata dall’università di San 
Diego del linguaggio di programmazione Pascal. Questo 
programma consente di costruire il software in UCSD 
Pascal e di farlo girare sotto il sistema operativo di Macin¬ 
tosh. Questa è tutta la serie di strumenti e di utility che 
MacAdvantage mette a disposizione per definire le appli¬ 
cazioni: 

• Editor per scrivere e modificare il programma sorgente 
Pascal, memorizzato come file di caratteri ASCII. 

• Compilatore UCSD Pascal che compila il sorgente e 
genera il programma oggetto direttamente eseguibile sotto 
il finder e che tra l’altro permette di accedere alle routine 
della ROM di Macintosh. 

• Debugger che viene fornito in tipologia simbolica. 

• Rmaker, cioè un compilatore delle risorse. 

• Librarian che consente di creare e di gestire le librerie di 
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procedure utilizzate nei programmi Pascal. 

• Set Options serve per definire i file contenenti la P—ma¬ 
chine e la libreria Runtime e per sovrintendere all’esecu¬ 
zione del debugger e alle librerie a cui fa riferimento il 
programma. 

Distribuito da Apple Computer a lire 826.000. 



• Dics 

DICS (Didactic ICon Shell) consente una facile intera¬ 
zione con il sistema operativo UNIX. L’interfaccia uomo 
macchina è come di consueto, per il Mac, gestita per mezzo 
di icone e quindi all’utente non è richiesta la conoscenza di 
nessun linguaggio speciale di programmazione. Tuttavia il 
programma mette a disposizione dell’utente tutte le infor¬ 
mazioni, gli oggetti e soprattutto le funzionalità del file 
System di Unix. Esistono due possibili configurazioni del 
programma: in quella di base, DICS agisce sul file System 
di una macchina Unix. È però disponibile anche una ver¬ 
sione in grado di operare su una rete di macchine Unix, 
collegate via LAN o via RS 232, restituendo all’utente una 
visione unificata di tutto il sistema. Il programma è distri¬ 
buito dalla List, il prezzo dipende dalle dimensioni del 
sistema che sopporta la rete e può andare da un minimo di 
500.000 a un massimo di 900.000 lire. 


• Pagine Gialle Elettroniche 

È un programma per gestire una particolare trasmissio¬ 
ne di dati, cioè consente di accedere in modo automatico 
(auto—cali) o semiautomatico alla banca dati delle pagine 
gialle (SEAT), sia attraverso un accoppiatore acustico, sia 



via modem. Questa banca dati mette a disposizione, prati¬ 
camente in tempo reale, i dati anagrafici di 700.000 opera¬ 
tori economici, più una serie di informazioni tecnico— 
commerciali per circa 100.000 di essi. Le procedure per 
interrogare la banca dati, quindi per ottenere ciò che si 
desidera, fanno uso del mouse, mentre il linguaggio utiliz¬ 
zato è molto facile da apprendere perché la sintassi è tutta 
in italiano. Le Pagine Gialle Elettroniche sono distribuite 
da Sarin a lire 177.000. 


• Mac Plot 

È la soluzione ideale per chi desidera utilizzare una 
periferica di stampa a colori. Mac Plot consente di gestire 
in modo efficace il plotter, attraverso l’uso di più penne 
(nei formati A4 e B3), definendo con la massima libertà i 
colori che si intendono usare, associando un colore a ogni 
tracciato (pattern). Il programma è distribuito da Easy 
Byte a lire 472.000. 



• Aztec C 

Si tratta di un ambiente di sviluppo estremamente po¬ 
tente di programmi in linguaggio C. Il software sviluppato 
con questo sistema gira sotto tre ambienti diversi: Unix, il 
Finder e un terzo ambiente misto tra i primi due. E uno 
strumento molto efficace poiché consente di accedere alle 
routine speciali della ROM (ToolBox). Il compilatore ade¬ 
risce allo standard di linguaggio "C" descritto sul libro "The 
C Language" di Kernighan & Ritchie, a eccezione del 
modo in cui vengono gestiti i bit—field. Il programma è 
distribuito dalla Cominform a lire 1.416.000. 


• PardoMac 

È un gestionale realizzato per risolvere i problemi conta¬ 
bili dell’azienda. Sebbene il nucleo centrale del program¬ 
ma sia quello utilizzato per il software dell’ Apple //, è stata 
notevolmente migliorata l’interfaccia utente, per consenti¬ 
re una maggiore facilità d’uso unitamente a una maggiore 
eleganza formale. Durante 1’inserimento della primanota 
da tastiera viene immediatamente effettuato un controllo 
sui dati di input per verificare la quadratura; è possibile 
effettuare delle interrogazioni a video su conti e sottocon¬ 
ti, situazioni cliente/fornitore o su statistiche di partite 
pareggiate, anche durante lo svolgimento di altre opera¬ 
zioni. Viene effettuata la generazione automatica dei mo- 
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Il mio Ufficio! 



Per impostare fatture in cui 
basta inserire le quantità 
totalmente integrata. vendute e ì prezzi unitari 
Per archiviare esattamente per ottenere i relativi totali. 

come avviene con Per stampare e mettere 
i classificatori tradizionali. nell'ordine desiderato 

Per predisporre carte le etichette degli indirizzi- 
intestate esattamente come 
avviene nelle tipografie. 

Per stampare lettere 
personalizzate senza fatica. 


Completamente in italiano, 
facilissimo da usare, 




























































THE OFFICE SYSTEM FOR THE MACINTOSH * 

in italiano 





Un programma per il tuo macinfcosh 
da provare subito. 

Compralo! Oppure ordina il Demo. 
Siamo sicuri che ti convincerà. 




Stampa 


Zoroastri Amilcare 


Copertina 


Porla delta s t ampante; ; ;;'y 

ITTTTOTni 


Lunghezza 
del modulo 


Testo! Grafiti 


Copio: 


START 


Comandi della copiatrice 


[ é File Composizione Moduli Grafici Caratteri Stile 





[MMM) ©“GIMIDatKltl 


¥ 


n Sì, desidero acquistare My Office. Scelgo la seguente formula di 
pagamento: 

I H Accludo assegno non trasferibile di lire 295mila (Iva e spese 
di spedizione comprese) intestato a Editronica srl. 

□ Accludo ricevuta di versamento su conto corrente postale n. 
19740208 intestato a Editronica srl, di lire 295mila (Iva e 
spese di spedizione comprese). 


□ Sì, desidero provare My Office. Speditemi il dischetto Demo al 
prezzo di lire 25mila (Iva e spese di spedizione comprese). Resta 
inteso che se acquisterò poi il programma tale importo mi verrà 
scontato sul prezzo d'acquisto, e potrò quindi ricevere My Office al 
prezzo di lire 270mila anziché 295mila. Scelgo la seguente formula 
di pagamento: 

I Q Accludo assegno non trasferibile di lire 25mila (Iva e spese 
di spedizione comprese) intestato a Editronica srl. 

□ Accludo ricevuta di versamento su conto corrente postale n. 
19740208 intestato a Editronica srl, di lire 25mila (Iva e 
spese di spedizione comprese). 



Nome e Cognome. 

Indirizzo.Cap. 

Città.Prov. 

Ritagliare e spedire in busta chiusa a: Editronica srl, 
Corso Monforte 39, 20122 Milano. 







































































































vimenti contabili per l’apertura e la chiusura di bilancio e 
per le registrazioni dell’IVA. È possibile richiedere l’e¬ 
stratto conto a partite aperte e/o scadute e la stampa di 
ogni genere di documento previsto dalle norme di legge 
vigenti. PardoMac è distribuito da Easy Byte a lire 
1 . 000 . 000 . 


• 68000 Development System 

Il Macintosh 68000 Assembler/Debugger (MDS 68000) 
è un ambiente di sviluppo per applicazioni in assembler. Il 
programma, completo di debugger interattivo, dispone 
delle seguenti utility: 

• EDIT text editor per la creazione dei programmi sorgen¬ 
ti. 

• ASM assemblatore. 

• LINK linker per la costruzione dell’applicativo. 

• EXEC realizza una integrazione automatica tra le fun¬ 
zioni di assembler, linker la risorsa dell’applicativo. 

• RMAKER compilatore delle risorse. 

• PACKSYMS compatta un file symbol. 

• MACDB NUBS contiene i debugger funzionanti, sotto 
uno stesso sistema, in modo concorrente all’applicativo. 

• DEBUGGER Contiene i debugger che utilizzano due 
sistemi. 

• SAMPLE PROGRAMS contiene alcuni esempi di ap¬ 
plicazioni. 

• TRAP FILES contiene l’associazione nome-indirizzo 
per le trap di sistema. 

• EQU FILES contiene le tavole di equates. 

• D FILES contiene la versione compatta dei trap file e 
degli equ file. 

MDS 68000 è distribuito da Apple Computer a lire 
230100. 


é File Edit Search Format Font Size Transfer 








; File U indoai. Asm 
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, Macintosh 68000 Development System — Programming Example 



; Written by Marc Russell Beni off and Ernie Beernink 
; Spiritual guidonee from Dan Cochran 



; This application displays a tuindoui within uihich you can enter and editY 
; text. Program control is through three menus : thè Apple menu, thè File'*’ 

; menu, and thè Edit menu. 



, The Apple menu has thè standard desk accessories and an About feature. 



; The File menu lets you quit thè appiication. 



, The Edit menu lets you cut, copy, paste, and clear thè text in thè luindoui 
; or in thè desk accessories Undo is provided for desk accesories only. 

, Command key equivalents for undo, cut, copy, and paste are provided. 

, Cutting and pasting betiueen thè application and thè desk accessories is 
; not supported. This requires use of thè Scrap Manager. 



; This program requires thè use of a resource file called "Hindow.Rsrc” 

, U i ndotu. Rsrc is created from "Uindoiu.R” using RMaker 

' 


■ [T 

Pi 
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guarda la stampa, è possibile effettuare sia copie del video, 
sia delle stampe ordinate e selezionate degli archivi. Distri¬ 
buito da J. Soft a lire 278.000. 


• Page Maker 


Questo software realizza una particolare integrazione 
tra grafica e word processing. E stato progettato per essere 
lo strumento ideale per chi ha necessità di fare largo uso di 
comunicazioni scritte e desidera creare pagine di testo 
insieme a sofisticati elementi grafici di contorno, svinco¬ 
landosi dai costi di un servizio esterno di fotocomposizio¬ 
ne. Tecnicamente il programma consiste in una tavola 
elettronica di layout dove è possibile aggregare elementi 
testuali e grafici, manipolandoli e formattandoli per otte¬ 
nere il prodotto pronto per la riproduzione. Le applicazio¬ 
ni di questo strumento sono molto varie e innumerevoli: 
documentazioni tecniche, relazioni, riviste aziendali, noti¬ 
ziari ecc. Page Maker è distribuito da Apple Computer a 
circa un milione e mezzo di lire. 
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•pròmote end preserve thè spirìt of thè classics UnXnovn to 


Jun. he had stand a revolution in pubhshing 


flrchiuio Comp. Strumenti Pagina Testo Linee 
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• Aldus l 7 
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iquill and ink. That vas folloved by 

ijust about 10 years ago, by vord pro< 
entenng thè age of desktop publishin* 
•vnte, design, and pnnt documenta ih 
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This special Issue of Tomorro 
look at publishing yesterday and toda 
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• Store 

Si propone di gestire in modo chiaro e veloce un magaz¬ 
zino di abbigliamento. E possibile organizzare il magazzi¬ 
no in relazione ai codici delle etichette di uscita, in modo 
tale da poter stampare automaticamente le etichette dei 
singoli capi. Da una parte permette di amministrare le 
scorte nel magazzino, consentendo di conoscere in qualsia¬ 
si momento la giacenza, il consegnato e il venduto. Dall’al¬ 
tra è in grado di fare ordinazioni e ricerche per tipo e per 
fornitore, sia su tutto l’archivio, sia in un particolare sot¬ 
toinsieme. Store è distribuito da Master. 


• Memo 

Lo scopo di questo programma è di ottimizzare il siste¬ 
ma di gestione degli impegni di una o più persone, fino a un 
massimo di 20. È in grado di archiviare e di ripescare gli 
appuntamenti e gli impegni su più agende contemporanea¬ 
mente e di presentarle sul video per pianificare le proprie 
attività ed eventualmente per effettuare dei controlli. Ol¬ 
tre a questo è possibile fare delle ricerche a chiave di ogni 
genere nell’archivio appuntamenti, trattando tutte le 
agende come un database. Come supporto a questa strut¬ 
tura è disponibile un completo indirizzario in cui può tor¬ 
nare utile salvare preziose informazioni. Per quanto ri- 


• Mac Law 

Gestisce due aspetti dell’attività di uno studio legale: da 
una parte pianifica le pratiche giudiziarie, dall’altra elabo¬ 
ra e archivia tutto ciò che è connesso alla contabilità. Per 
l’utente sono disponibili due grandi sezioni: nella prima 
vengono riportate tutte le annotazioni di carattere econo¬ 
mico come le spese, le ritenute d’acconto, PIVA ecc, nella 
seconda vengono archiviate le varie pratiche che consento¬ 
no di accedere ai dossier della clientela. La gestione del 
materiale è molto flessibile, infatti, ad esempio, per l’out¬ 
put di stampa è possibile effettuare una selezione molto 
precisa e dettagliata, come pure ottenere i totali a una 
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certa data. Il programma procede automaticamente al ri¬ 
calcolo dei valori parziali, individuati mediante interroga¬ 
zioni precedenti e consente di organizzare un massimo di 
90 voci diverse. Mac Law è distribuito da Caribel a lire 
708.000. 


f é Rrchiuio Composizione | 


SPES 

Data 

Descrizione 

0284 

MARCA PROCURA 

0284 

1, . . . 


0584 

0584 


120284 !□! 


Pratica Completa 


Progetto di Notula Tribunale 
Ruuiso Pagamento 
Progetto di Notula Cliente 


Descrizione 


! DESCRIZIONE PRATICA 



0684 

0684 


Chiave (Parte/Controparte) [CRRLI/CECCHI 

Foro Comp. [PRETURA LUCCA | Giudice | PLQI Sl | 

Classe di Valore Pratica (A :l) |a | Soqg. Ritenuta d’Acconto (S/N) |s | 


DATI IDENT 


PARTE 


CONTROPARTE 



Cognome... 

Nome. 

Indirizzo... 

CAP.. 

Citta. 

Telefono.... 

P.IVA/C.F.- 


CARLI 

GI0UANNI 

UI fi BARACCA 12 

56100 

PISA 

54321 

CRL0UN32R06G643K 


CECCHI 
MfiRIfi 

Ulfi UIRCCIR 45 
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ESECUZIONE M0BILIRRE PER RECUPERO CREDITO LIRE 350.000 


• OmniReader 

È uno strumento estremamente utile per chi vuole archi¬ 
viare una grande quantità di documenti, piuttosto lunghi, 
senza dover perdere tempo in noiose digitazioni. Essen¬ 
zialmente l’hardware è costituito da un lettore ottico di 
caratteri supportato da una guida laterale e da un righel¬ 
lo-guida che consentono al lettore ottico di scorrere il 
testo riga per riga. Una volta introdotto, il documento 
viene archiviato in un file Mac Write. Distribuito da Paoli- 
ni a lire 2.006.000. 


• Mac Terminal 

Distribuito dalla Apple Computer, è il software che 
realizza la comunicazione di dati sia con ambienti IBM che 
utilizzano il protocollo 3270, sia con ambienti Digital o con 
qualsiasi altro sistema di trasmissione che utilizzi il proto¬ 
collo TTY. Come ogni programma per Mac anche questo 
realizza tutte le potenzialità della macchina in questo set¬ 
tore, insieme a una estrema praticità e semplicità d’uso. 
Ecco quali sono le principale caratteristiche del program¬ 
ma: 

• Protocolli già codificati: Digital VT 52, Digital VT 100, 
IBM 3270 e TTY 

• Completa programmabilità del baud—rate. 



— imoiews 

• Programmabilità delle caratteristiche di trasferimento. 

• Personalizzazione della codifica del set di caratteri. 

• Opzione di auto-dial. 

• Funzioni di taglia e incolla sui file inquiry. 

• Capacità di inviare documenti a Mac Write. 

• Possibilità di salvare su disco la parte di documento che 
scorre sul video. 

Il programma è distribuito da Apple Computer a lire 
306.800. 


• Pixel Art 

Si tratta del monitor a colori per il Macintosh. È una 
periferica molto sofisticata, capace di esaltare al massimo 
le prestazioni dell’unità centrale. Sono disponibili fino a 16 
milioni di colori con tonalità differenti, selezionabili molto 
semplicemente, com’è nello stile di Macintosh. È possibile 
elaborare soluzioni grafiche estremamente complesse, ser¬ 
vendosi del mouse, utilizzando il software già disponibile 
sul mercato, come ad esempio Mac Paint. Pixel Art è 
distribuito da Paolini a lire 15.222.000. 


• Mac Tablet 

La tavoletta grafica è uno strumento fondamentale per 
poter sfruttare al massimo le capacità grafiche di Macin¬ 
tosh. Questa periferica grafica, che va utilizzata insieme a 
Mac Paint, è costituita da una tavoletta da disegno e da una 
penna elettronica. Con Mac Tablet si ha il duplice vantag¬ 
gio di poter riprodurre fedelmente disegni preesistenti 
come piantine, planimetrie, ecc, seguendone semplice- 
mente i contorni e inoltre si ha disposizione uno strumento 
molto più sensibile e preciso per eseguire disegni elettroni¬ 
ci a mano libera. Il programma è distribuito da Paolini a 
lire 1.711.000. 



r 


Per maggiori in-forraazioni sui programi descritti in questo articolo^ 

ecco gli indirizzi dei distributori: 


APPLE COMPUTER Via Bovio 5 - Reggio Emilia - Tel. 0522/32643 
BITS 4 BYTES Via S. Francesco d'Assisi B - Milano - Tel. 02/8376207 


CARIBEL Via Pungilupo 31 - Pisa - Tel, 050/575440 
COMINFOR Corso Francia 30 - Torino - Tel. 011/740547 
EASY BYTE Via E. Toti-Gall. Cisa - Latina - Tel. 0773/48801 
J. SOR Via Rossellini 12 - Milano - Tel. 02/4888228 
LIST Piazza Mazzini 6 - Pisa - Tel. 050/44023 
MASTER Via G. liberti 12 - Milano 
^ PAOLINI Via Ostiense 48 - Roma - Tel. 04/5755004 _ 
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• Programmi 
didattici, professionali 

e giochi 

• Modulistica 

continua 

• Accessori 
per Gomputers 
e Stampanti 

• Noleggio sul posto 
di Macintosh 512 
e LaserWriter 
per stampa su carta 
comune, 
cartoncino e lucido 


• Libri e riviste 
specializzate 
nazionali ed estere 


• Tappeti 
antistatici 3M 


• Assistenza 
tecnica hardware 
e software 


• Corsi introduttivi 
e specialistici 


• Collegamento a 
Banche dati e Pagine 
Gialle Elettroniche 


SMALL BUSINESS COMPUTERS s .r.i. 


via Settembrini ang. via Vitruvio 38 - 20124 Milano 
telefono (02) - 6705652/6705661 





















Eccoci alla seconda tappa del nostro viaggio nel mondo dosjVjJ 111 
dell’altissima risoluzione per Apple//e con scheda 80 apple 7 /> Sili 
colonne o //c. Questo articolo esplora l’animazione sullo APPLE /A * 1111 
schermo delle figure a blocco. Un driver in linguaggio 
macchina e vari programmi dimostrativi illustrano il 
meccanismo del sistema. 


Sempre più in alto 



N ell’ultimo numero di Applicando 
abbiamo posto tutte le basi ne¬ 
cessarie per la doppia Hi—Res; adesso 
metteremo a punto altre routine per il 
vostro DHR driver, e cominceremo ad 
addentrarci in qualche tecnica d’ani¬ 
mazione. 

Se avete già condotto qualche espe¬ 
rimento di persona, avrete probabil¬ 
mente constatato che nella doppia 
Hi-Res c’è una gran quantità di po¬ 
tenziale; tuttavia l'animazione grafica 
in Applesoft è piuttosto macchinosa e 
lenta. Per evitare le peculiarità della 
doppia alta risoluzione le routine che 
realizzeremo gestiranno automatica- 
mente per voi tutte le manovre dei soft 
switch, evitandovi così di dovervi 
preoccupare di colonne, duplicazione 
d’indirizzi e simili. 

Le figure a blocco 
in doppia Hi-Res 

In figura 1 è rappresentata la prima 
immagine con cui lavorare, un’astro¬ 
nave aliena definita in modo tale da 
funzionare sullo schermo della doppia 
alta risoluzione. 

Notate che la figura è larga sei byte- 
/colonna, ma comprende solo tre indi¬ 
rizzi. Nell’alta risoluzione normale a 
280 punti la larghezza di una figura a 
blocco era definita dal numero dei by¬ 
te orizzontali che essa occupava. Nelle 
figure a blocco della doppia alta risolu¬ 
zione la larghezza è definita dal nume¬ 
ro degli indirizzi che occupa; perciò 
tutte le figure della doppia Hi—Res 
saranno larghe un numero pari di co¬ 
lonne. Il disegno visibile nella figura 1 
ha una larghezza di 3 e un’altezza di 
14. Le dimensioni totali della figura 
sono 3 * 14 * 2 = 84 byte. 

La larghezza della figura è in termi¬ 
ni d’indirizzi (anziché di byte) per evi¬ 


tare la necessità di controllare costan¬ 
temente ogni byte di dati per vedere in 
quale posizione debba essere imposta¬ 
to il soft switch della pagina 2. Nell’at¬ 
tuale configurazione le nostre figure in 
doppia Hi-Res richiederanno un nu¬ 
mero doppio di byte di quello che ri¬ 
chiederebbero le figure delle stesse di¬ 
mensioni nel modo 280. Questo vuol 
già dire che le routine di disegno do¬ 
vranno fare un lavoro doppio, ed è 
bene quindi evitare quanta più attività 
di controllo è possibile per conservare 
la massima velocità. Istituendo una 
definizione delle figure e un formato 
dei dati di tipo costante non occorre 
alcuna attività di controllo. 

La definizione 
di una figura a blocco 

Ognuna delle figure sarà definita 
con cinque valori. 


Numero della figura (SHape NUM- 
ber) (POKE 251.SHNUM) 

Il primo di questi cinque valori è un 
numero, che viene immagazzinato 
nella locazione di memoria 251 ($FB). 
Questo valore dirà alle nostre routine 
di disegno dove trovare i dati che defi¬ 


niscono la figura. Nel modo normale 
di immagazzinamento della figura in 
memoria si comincia alla sommità del¬ 
la memoria disponibile (appena sotto 
il driver) e si costruisce verso il basso 
con l’aggiunta di ogni figura. Ognuna 
delle figure comincerà esattamente al 
byte di una pagina di memoria, vale a 
dire a $7500, $8A00, $9000 e così via. 
Ci sono anche modi in cui si possono 
immagazzinare molteplici figure su 
una pagina di memoria, ma di questo 
parleremo più avanti. Se la vostra figu¬ 
ra comincia al primo byte di una pagi¬ 
na di memoria potete lasciare che de¬ 
bordi nella pagina seguente: quindi 
non c’è alcuna lunghezza massima del¬ 
la figura di cui dovete preoccuparvi. 
Per determinare il giusto numero della 
figura, prendete le prime due cifre del¬ 
l’indirizzo iniziale esadecimale e con¬ 
vertitele nel loro valore decimale. Per 
esempio di una figura messa in memo¬ 
ria a partire da $9000 le prime due cifre 
di $9000 sono $90, e dato che l’equiva¬ 
lente decimale di $90 è 144 il numero 
della figura sarà 144. 


Sommità verticale (Vertical Top), 
(POKE 252,VT) 

Il valore di VT sarà la coordinata Y più 
alta occupata dalla figura (0—191). 
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25 

29 

2D 

31 

35 

39 

3D 

9558- 

21 

25 

29 

2D 

31 

35 

39 

3D 

9560- 

22 

26 

2A 

2E 

32 

36 

3A 

3E 

9568- 

22 

26 

2A 

2E 

32 

36 

3A 

3E 

9570- 

23 

27 

2B 

2F 

33 

37 

3B 

3F 

9578- 

23 

27 

2B 

2F 

33 

37 

3B 

3F 

9580- 

20 

24 

28 

2C 

30 

34 

38 

3C 

9588- 

20 

24 

28 

2C 

30 

34 

38 

3C 

9590- 

21 

25 

29 

2D 

31 

35 

39 

3D 

9598- 

21 

25 

29 

2D 

31 

35 

39 

3D 

95A0- 

22 

26 

2A 

2E 

32 

36 

3A 

3E 

95A8- 

22 

26 

2A 

2E 

32 

36 

3A 

3E 

95BQ- 

23 

27 

2B 

2F 

33 

37 

3B 

3F 

95B8- 

23 

27 

2B 

2F 

33 

37 

3B 

3F 

95C0- 

20 

24 

28 

2C 

30 

34 

38 

3C 

95C8- 

20 

24 

28 

2C 

30 

34 

38 

3C 

95D0- 

21 

25 

29 

2D 

31 

35 

39 

3D 

95D8- 

21 

25 

29 

2D 

31 

35 

39 

3D 

95E0- 

22 

26 

2A 

2E 

32 

36 

3A 

3E 

95E8- 

22 

26 

2A 

2E 

32 

36 

3A 

3E 

95F0- 

23 

27 

2B 

2F 

33 

37 

3B 

3F 

95F8- 

23 

27 

2B 

2F 

33 

37 

3B 

3F 


Base verticale (Vertical Bottoni), 
(POKE 253,VB) 

Il valore di VB sarà la coordinata Y 
più bassa occupata dalla figura 
(0-191). 


Destra orizzontale (Horizontal 
Right), (POKE 254,HR) 

Il valore di HR sarà l’offset d’indirizzo 
più a destra occupato dalla figura 
(0-39). 


Sinistra orizzontale (Horizontal Left), 
(POKE 255,HL) 

Il valore di HL rappresenterà l’offset 
d’indirizzo più a sinistra occupato dal¬ 
la figura (0—39). 


Ogni volta che manipolerete la figu¬ 
ra sullo schermo dovrete specificare i 
valori VT, VB, HR e HL della figura 
per definire la porzione dello schermo 
nella quale le routine di animazione 
dovranno svolgere le loro attività. 
Userete il valore di SHNUM con qual¬ 
siasi routine che utilizzi la tavola di 
definizione delle figure immagazzina¬ 
ta in memoria. 

Guardando la figura 1 potete notare 
che gli attuali valori di VT, VB, HR e 
HL della figura sono rispettivamente 
0, 13, 2 e 0. 

Checos’èuna 
figura a blocco? 

Una figura a blocco è un "blocco" di 
byte dello schermo ad alta risoluzione 
che è delimitato in alto e in basso da 
VT e VB, e ai lati da HR e HL. Una 
tavola delle figure a blocco è una strin¬ 
ga sequenziale di byte di dati (nel no¬ 


stro esempio ce ne sono 84) che contie¬ 
ne le configurazioni di bit per ciascun 
byte presente nel rettangolo. 

Le routine di animazione e di dise¬ 
gno percorrono la tavola, elemento 
per elemento, e mettono l’opportuno 
schema di bit negli opportuni byte 
Hi-Res all’interno del rettangolo de¬ 
finito. La tavola delle figure non con¬ 
tiene alcuna informazione che indichi 
dove comincia o dove finisce; pertanto 
le routine di animazione continueran¬ 
no a manipolare i byte di schermo fino 
a quando avranno trattato tutti i byte 
presenti nei confini di VT, VB, HR e 
HL. 

Se le dimensioni da voi fissate per 
definire il rettangolo non sono confor¬ 
mi ai dati della tavola delle figure (os¬ 
sia al modo in cui la tavola è stata 
creata) la figura sarà incompleta o di¬ 
storta. Noterete che molti dei byte in¬ 
terni al rettangolo non hanno nulla a 
che fare con la figura vera e propria, e 
fanno anzi parte dello sfondo; tutta¬ 
via, dato che rientrano nella zona d’in¬ 
fluenza della figura, sono parti neces¬ 
sarie della figura a blocco. 

Le figure a blocco, comunque, sono 
probabilmente le più facili da creare. 
Anziché dover calcolare una quantità 
di valori di dati o di movimenti di vet¬ 
tore da mettere in ogni byte, tutto ciò 
che dovete fare è disegnare la figura 
sullo schermo, usando il metodo che 
preferite, e poi usare una routine che è 
incorporata nel driver, la quale tradur¬ 
rà il disegno nella tavola di figure a 
blocco occorrente. 

Se intendete utilizzare il colore nelle 
figure, fate attenzione a usare i giusti 
set di quattro punti per colore. La figu¬ 
ra dovrà apparire sullo schermo del¬ 
l’alta risoluzione normale larga il dop¬ 
pio di quanto sarà quando verrà poi 
utilizzata sullo schermo della doppia 
alta risoluzione. 
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FIGURA 1: L’ASTRONAVE ALIENA 
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FIGURA 2: METODI DI ELABORAZIONE DELLA FIGURA 
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Listato 1 


Altre routine 


per il DHR driver 


SOURCE FILE: SCALI ROUTINE 
0000: 1 * SCAN ROUTINE 

0000: 2 * (0 1985 8Y APPLICMDO 4 MICROSPARC INC. 

0000: 3 * 

0000: 4 « TOOL KIT ASSEMBLER 

0000: 5 * 

-NEXT OBJECT FILE WME IS SCAN ROUTINE.OBJO 


93DA: 

6 

0RG 

$93DA 



00FC: 

7 UT 

EQU 

$FC 

Si 

DECIMAL 252 

00FD: 

8 VB 

EQU 

$F0 

** 

DECIMAL 253 

OOFE: 

9 HR 

EQU 

$FE 

*# 

DECIMAL 254 

00FF: 

10 HL 

EQU 

$FF 

*# 

DECIMAL 255 

0026: 

11 HBASL 

EQU 

$26 

** 

DECIMAL 38 (SCREEN BASE 

0027: 

12 HBASH 

EQU 

$27 

*# 

DECIMAL 39 ADDRESS) 

0006: 

13 YO 

EQU 

$6 

#* 

DECIMAL 6 

OOFA: 

14 BASL 

EQU 

$FA 

** 

DECIMAL 250 (TABLE BASE 

00FB: 

15 BASH 

EQU 

$FB 

*# 

DECIMAL 251 ADDRESS) 

9464: 

16 YADDR 

EQU 

$9464 

SS 

DECIMAL 37988 (READ YTABLE) 

C054: 

17 PAGE1 

EQU 

$C054 



C055: 

18 PAGE1X 

EQU 

$C055 



93DA:A9 00 

19 SCW 

LDA 

00 

ss 

SCAfflER CALL 37850 TO ENTER 

93DC: 85 FA 

20 

STA 

BASL 

ss 

POINT TO START OF TABLE 

93DE:A5 FD 

21 

LDA 

VB 

ss 

GET B0TT0M Y COORDINATE 

93E0:85 06 

22 

STA 

YO 

ss 

STORE IN $6 F0R USE BY YADDR 

93E2:20 64 94 

23 LI 

JSR 

YADDR 

ss 

RETURNS-L0=HBASL/H1=HBASH 

93E5:A4 FE 

24 

LDY 

HR 

ss 

SET Y-REG T0 RIGHTMOST BYTE 

93E7:A2 00 

25 

LDX 

#0 

ss 

SET TABLE 0FFSET=0 

93E9 : 8D 54 CO 

26 L2 

STA 

PAGE1 

ss 

READ MAIN MEMORY 

93EC:B1 26 

27 

LDA 

(HBASL),Y ** 

GET SHAPE BYTE FR0M SCREEN 

93EE-.81 FA 

28 

STA 

(BASL.X) 

ss 

PUT IN SHAPE TABLE 

93F0.-EÓ FA 

29 

INC 

BASL 

ss 

POINT TO NEXT TABLE ELEMENT 

93F2: DO 02 

30 

BNE 

J1 

ss 

IF x256 BYTES-JUMP 

93F4:E6 FB 

31 

INC 

BASH 

ss 

PAGE 0VERFL0U-GOT0 NEXT PAGE 

93F6:8D 55 CO 

32 J1 

STA 

PAGE1X 

ss 

READ AUX1LIARY MEMORY 

93F9:B1 26 

33 

LDA 

(HBASL),Y *♦ 

GET SHAPE BYTE FR0M SCREEN 

93FB:81 FA 

34 

STA 

(BASL.X) 

ss 

PUT IN SHAPE TABLE 

93FD:Eó FA 

35 

INC 

BASL 

ss 

POINT TO NEXT TABLE ELEMENT 

93FF: DO 02 

36 

BNE 

NC1 

ss 

IF x256 BYTES-JUMP 

9401:E6 FB 

37 

INC 

BASH 

ss 

PAGE OVERFLOU-GOTO NEXT PAGE 

9403:88 

38 NC1 

DEY 


ss 

POINT T0 NEXT BYTE x— 

9404: CO FF 

39 

CPY 

#$FF 

ss 

HAS Y-REGISTER REACHED 0 ? 

9406 :F0 04 

40 

BEQ 

NXTLN 

ss 

YES-G0T0 NEXT LINE 

9408 :C4 FF 

41 

CPY 

HL 

**IS Y-REGISTER >=HL ? 

940A:B0 DD 

42 

BCS 

L2 

ss 

YES-GET THE NEXT BYTE 

940C:C6 06 

43 NXTLN 

DEC 

YO 

ss 

MOVE UP TO NEXT LINE 

940E:A5 06 

44 

LDA 

YO 

ss 

GET NEW Y COORDINATE 

9410 :C9 FF 

45 

CMP 

#$FF 

ss 

HAS Y-COORDINATE REACHED 0 ? 

9412:F0 04 

46 

BEQ 

RTN 

ss 

YES-UE RE FINI SHED 

9414:C5 FC 

47 

CMP 

VT 

ss 

HAVE UE REACHED VT YET ? 

9416 :B0 CA 

48 

BCS 

LI 

ss 

NO-START THE NEXT LINE 

9418:60 

49 RTN 

RTS 


ss 

D0NE-EXIT ROUTINE 


*** SUCCESSFUL ASSEMBLA : NO ERRORS 


Listato 2 


A questo punto sarà un po' difficile 
tentare una qualsiasi prova di anima¬ 
zione, prima di avere qualche nuova 
routine con cui lavorare, e perciò con¬ 
tinuiamo a costruire il nostro driver 
della doppia alta risoluzione. La prima 
cosa da fare è BLOAD DHR.DRI¬ 
VER, caricando il driver realizzato nel 
precedente articolo (se non l’avete 
presente, guardate il listato 0.5 per 
prendere conoscenza del dump esade- 
cimale, da battere prima di aggiungere 
SCAN e via dicendo). Poi accedete al 
monitor battendo CALL—151, e 
provvedete ad aggiungere qualche 
nuova routine. 

Coloro che non possiedono il Tool Kit 
assembler possono fare riferimento al 
listato 7. Per avere ulteriori informa¬ 
zioni sull’introduzione in memoria dei 
file binari, consultate “Per chi comin¬ 
cia” in questo numero della rivista. 


SCAN $93DA 

La routine SCAN (listato 1) è una del¬ 
le più importanti, in quanto è la parte 
del driver che crea le figure da utilizza¬ 
re. Sua funzione è quella di guardare 
la figura disegnata sullo schermo (me¬ 
diante comandi HPLOT o qualsiasi al¬ 
tro metodo), prendere le configura¬ 
zioni di dati dallo schermo e creare 
una tavola delle figure a blocco. Per 
usare SCAN dovete specificare VT, 
VB, HR e HL, allo scopo di dire a 
SCAN quale area dello schermo dovrà 
impiegare nella creazione della tavola 
delle figure. Dovete anche fare POKE 
251,SHNUM per dire alla routine in 
che punto della memoria volete sia as¬ 
semblata e memorizzata la tavola delle 
figure. 


SOURCE FILE: ORALI ROUTINE 

0000 : 1 * ORALI ROUTINE 

0000: 2 * <0 1985 BY APPLICANDO 4 MICROSPARC INC. 

0000: 3 * 

0000: 4 * TOOL KIT ASSEMBLER 

- NEXT OBJECT FILE NANE IS DRAU ROUTINE.OBJO 


9394: 

5 

ORG 

$9394 

00FC: 

6 VT 

EQU 

$FC 

00FD: 

7 VB 

EQU 

$FD 

OOFE: 

8 HR 

EQU 

$FE 

00FF : 

9 HL 

EQU 

$FF 

0026: 

10 HBASL 

EQU 

$26 

0027: 

11 HBASH 

EQU 

$27 

0006: 

12 YO 

EQU 

$6 

OOFA: 

13 BASL 

EQU 

$FA 

00FB: 

14 BASH 

EQU 

$FB 

9464: 

15 YADDR 

EQU 

$9464 

C054: 

16 PAGE1 

EQU 

$C054 

CO 55: 

17 PAGEIX 

EQU 

$C055 

9394:A9 00 

18 DRAU 

LDA 

40 

9396:85 FA 

19 

STA 

BASL 


** DEC1MAL 252 

** DECIMAL 253 

** DECIMAL 254 

** DECI:AL 255 

** DECIMAL 38 (SCREEN BASE 

** DECIMAL 39 ADDRESS) 

** DECIMAL 6 

** DECIMAL 250 (TABLE BASE 
** DECIMAL 252 ADDRESS 
** DECIMAL 379B8 (READ YTABLE) 


** CALL 37780 T0 ENTER 
** P0INT TO START OF TABLE 


DRAW $9394 

La routine DRAW (listato 2) è esatta¬ 
mente l’opposto di SCAN. Prende i 
dati dalla tavola delle figure in memo¬ 
ria e mette gli opportuni valori diretta- 
mente sullo schermo della doppia alta 
risoluzione. Ogni volta che la routine 
passa a un nuovo indirizzo dello scher¬ 
mo Hi—Res essa colloca il primo byte 
di dati nella colonna dispari (pagina 1) 
e poi colloca il successivo byte di dati 
nella colonna pari (pagina IX). È lo 
stesso metodo usato da SCAN, 
DRAW e DRAWDN. Per usare 
DRAW occorre prima specificare VT, 
VB, HR e HL per definire in quale 
punto dello schermo dev’essere dise- 
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gnata la figura. Dovete anche fare PO- 
KE 251,SHNUM per dire alla routine 
in quale punto della memoria deve 
trovare la tavola delle figure. 


DRAWDN $934C 

La routine DRAWDN (listato 3) lavo¬ 
ra esattamente come DRAW con la 
differenza che mette i byte di dati sullo 
schermo in un ordine leggermente di¬ 
verso. Questa routine è comoda per 
capovolgere le figure, o per spostare le 
figure dietro altre figure o lo sfondo, o 
da dietro di essi. Anche per usare 
DRAWDN dovrete adoperare 
SHNUM, VT. VB, HR e HL. 


REVDIR $91F8 

Lo scopo di REVDIR (listato 4) è 
quello di invertire fisicamente l’aspet¬ 
to di una figura da sinistra a destra, 
mettendo i byte della tavola delle figu¬ 
re sullo schermo in ordine inverso a 
quello nel quale ne avevate fatto lo 
SCAN. Prima che ciascun byte sia 
messo sullo schermo viene invertita la 
confgurazione di bit dei bit 0—6, di 
modo che la routine cambia non solo 
l’ordine, ma anche i valori che sono 
immagazzinati sullo schermo Hi- 
Res. Il bit 7 è ignorato e automatica- 
mente messo a zero. 

Prima che i bit vengano invertiti il 
byte viene controllato per i valori 0 
(00000000) e 127 (01111111). Notere¬ 
te che la figura esemplificativa ha 59 
degli 84 byte con una di queste due 
configurazioni, cosicché si può rispar¬ 
miare tempo non invertendo i byte 
non necessari. Questa è anche una 
buona ragione per usare HCO- 
LOR=3 quando create le vostre figu¬ 
re, dato che così terrete il bit 7 a zero. 

Ogni volta che questa routine passa 
a un nuovo indirizzo di schermo mette 
il primo byte di dati nella pagina IX (la 
colonna pari) e poi mette il byte di dati 
seguente nella pagina 1 (la colonna 
dispari). Dopo che la figura è invertita 
e messa sullo schermo la figura inverti¬ 
ta viene collocata con un nuovo SCAN 
nella tavola delle figure, di modo che 
la tavola è sempre conforme all’aspet¬ 
to della figura sullo schermo. Anche 
REVIDR è definita con SHNUM, 
VT, VB, HR e HL. 

I metodi di elaborazione della figura 
visibili nella figura 2 illustrano in qual 
modo ognuna delle routine descritte 
sopra elabori i byte di dati che si trova¬ 
no nell’area definita della figura a 
blocco. 

Notate in figura 2 che sia SCAN sia 
DRAW introducono la figura a 


9398:A5 

FD 

20 

LDA 

VB 

»* GET BOTTOM Y-C00RTDINATE 

939A: 85 

06 

21 

STA 

Y0 

** ST0RE IN *6 F0R USE BY YADDR 

939C: 20 

64 94 

22 LIA 

JSR 

YADDR 

** RETURNS-L0=HBASL/HI=HBASH 

939F:A4 

FE 

23 

LDY 

HR 

** SET Y-REG T0 RIGHTM0ST BYTE 

93A1:A2 

00 

24 

LDX 

40 

** SET TABLE 0FFSET=0 

93A3:A1 

FA 

25 L2A 

LDA 

<BASL,X) 

** GET SHAPE BYTE FR0M TABLE 

93A5:8D 

54 CO 

26 

STA 

PAGE1 

#* DRAU MAIN MEMORY 

93A8 :51 

26 

27 

E0R 

(HBASL) ,Y ** M0DIFY T0 BACKGROUND 

93AA:91 

26 

28 

STA 

(HBASL).Y #* L0AD SMPE BYTE ON SCREEN 

93AC:E6 

FA 

29 

INC 

BASL 

** POINT T0 NEXT TABLE ELEMENTI 

93AE:D0 

02 

30 

BNE 

J1 

** IF x256 BYTES JUMP 

93B0 : E<4 

FB 

31 

INC 

BASH 

« PAGE 0VERFL0U-G0T0 NEXT PAGE 

93B2.-A1 

FA 

32 J1 

LDA 

(BASL.X) 

** GET SMPE BYTE FR0M TABLE 

9384:80 

55 CO 

33 

STA 

PAGE IX 

** DRAU AUXILIARY MEMORY 

93B7:51 

26 

34 

EOR 

(HBASL),Y ** M0DIFY BY BACKGROUND 

93B9:91 

26 

35 

STA 

(HBASL) Y ** L0AD SHAPE BYTE 0N SCREEN 

93BB:E6 

FA 

36 

INC 

BASL 

** POINT T0 NEXT TABLE ELEMENT 

93BD:D0 

02 

37 

BNE 

NC2 

** IF x256 BYTES JUMP 

93BF:E6 

FB 

38 

INC 

BASH 

** PAGE 0VERFL0U-G0T0 NEXT PAGE 

93C1:88 


39 NC2 

DEY 


** P0INE T0 NEXT SCREEN ADDRESS 

93C2: CO 

FF 

40 

CPY 

0*FF 

** HAS Y-REGISTER REACHED 0 ? 

93C4.-F0 

04 

41 

BEO 

NXTLN2 

** YES-G0T0 NEXT LINE 

93C<4 : C4 

FF 

42 

CPY 

HL 

** IS Y-REGISTER >=HL ? 

93C8:B0 

D9 

43 

BCS 

L2A 

** YES-JUMP T0 LQ0P2A 

93CA : C<5 

06 

44 NXTLN2 

DEC 

Y0 

*» MOVE T0 Y0 NEXT LINE 

93CC:A5 

06 

45 

LDA 

Y0 

** GET NEU Y-C00RDINATE 

93CE:C9 

FF 

46 

CMP 

0* FF 

** HAS Y-COORDINATE REACHED 0 ? 

93DO:FO 

04 

47 

BEO 

RTN2 

»* YES-UE 'RE FINI SHED 

93D2:C5 

FC 

48 

CMP 

VT 

** MVE UE REACHED VT YET ? 

93D4:BO 

C6 

49 

BCS 

LIA 

** NO-START THE NEXT LINE 

93Dó: 60 


50 RTN2 

RTS 


** DOME EXIT ROUTINE 


*** SUCCESSFUL ASSEMBLY : NO ERRORS 


Listato 3 


SOURCE FILE: DRAUDN ROUTINE 
0000: 1 * DRAUDN ROUTINE 

0000: 2 * (0 1985 BY APPLICANDO 4 MICR0SPARC INC. 

0000: 3 * 

0000: 4 * TOOL KIT ASSEMBLER 

. NEXT 0BJECT FILE NAME IS DRAUDN ROUTINE.OBJO 


934C: 


5 

0RG 

Ì934C 


OOFC: 


6 VT 

EQU 

*FC 

** DECIMAL 252 

OOFD: 


7 VB 

EQU 

4FD 

#* DECIMAL 253 

00FE: 


8 HR 

EQU 

1FE 

** DECIMAL 254 

00FF: 


9 HL 

EQU 

4FF 

** DECIMAL 255 

0026: 


10 HBASL 

EQU 

426 

** DECIMAL 38 (SCREEN BASE 

0027: 


11 HBASH 

EQU 

*27 

** DECIMAL 39 ADDRESS) 

0006: 


12 Y0 

EQU 

*6 

** DECIMAL 6 

00FA: 


13 BASL 

EQU 

*FA 

** DECIMAL 250 (TABLE BASE 

OOFB: 


14 BASH 

EQU 

*FB 

** DECIMAL 252 ADDRESS) 

9464: 


15 YADDR 

EQU 

*9464 

** DECIMAL 37988 (READ YTABLE) 

C054: 


16 PAGE1 

EQU 

4C054 


C055: 


17 PAGE IX 

EQU 

*C055 


934C:A9 

00 

18 DRAUDN 

LDA 

00 

** CALL 37708 T0 ENTER 

934E: 85 

FA 

19 

STA 

BASL 

** POINT T0 START 0F TABLE 

9350:A5 

FC 

20 

LDA 

VT 

** GET TOP Y-C00RDINATE 

9352:85 

06 

21 

STA 

Y0 

** ST0RE IN *6 F0R USE BY YADDR 

9354:20 

64 94 

22 LIA 

JSR 

YADDR 

** RETURNS-LO=HBASL/HI=HBASH 

9357:A4 

FE 

23 

LDY 

HR 

** SET Y-REG T0 RIGHTM0ST BYTE 

9359:A2 

00 

24 

LDX 

00 

** SET TABLE OFFSET=0 

935B:A1 

FA 

25 L2A 

LDA 

(BASL,X) 

** GET SHAPE BYTE FR0M TABLE 

935D:8D 

54 CO 

26 

STA 

PAGE1 

** DRAU MIN MEMORY 

9360:51 

26 

27 

EOR 

(HBASL),Y ** M0DIFY T0 BACKGROUND 

9362:91 

26 

28 

STA 

(HBASL) ,Y ** L0AD SHAPE BYTE 0N SCREEN 

9364:E6 

FA 

29 

INC 

BASL 

** POINT T0 NEXT TABLE ELEMENT 

9366:DO 

02 

30 

BNE 

J1 

** IFx256 BYTES JUMP 

9368:E6 

FB 

31 

INC 

BASH 

*« PAGE 0VERFL0U-G0T0 NEXT PAGE 

936A:A1 

FA 

32 J1 

LDA 

(BASL.X) 

** GET SMPE BYTE FR0M TABLE 

936C:8D 

55 CO 

33 

STA 

PAGE1X 

** DRAU AUXILIARY MEMORY 

936F: 51 

26 

34 

EOR 

(HBASL),Y ** M0DIFY T0 BACKGROUND 

9371:91 

26 

35 

STA 

(HBASL),Y ** L0AD SHAPE BYTE 0N SCREEN 

9373:E6 

FA 

36 

INC 

BASL 

** POINT TO NEXT TABLE ELEMENT 

9375: DO 

02 

37 

BNE 

NC2 

** IF x256 BYTES JUMP 

9377:E6 

FB 

38 

INC 

BASH 

** PAGE 0VERFL0U-G0T0 NEXT PAGE 

9379:88 


39 NC2 

DEY 


** POINT T0 NEXT SCREEN ADDRESS 

937A-.C0 

FF 

40 

CPY 

0*FF 

** HAS Y-REGISTER REACHED 0 ■> 

937C:F0 

04 

41 

BEO 

NXTLN2 

** YES-G0T0 NEXT LINE 

937E:C4 

FF 

42 

CPY 

HL 

** IS Y-REGISTER >=HL ? 


(continua) 



79 











■ 


9380:B0 09 

43 

BCS 

L2A 

«♦ YES-JUMP T0 L00P2A 

9382:E6 06 

44 NXTLN2 

INC 

YO 

« MOVE DOWN TO NEXT LINE 

9384:45 Oé 

45 

LDA 

Y0 

** GET NEW Y-COORDINATE 

9386:C9 FF 

46 

CMP 

(UFF 

** HAS Y-C00RD1NATE REACHED 0 ? 

9388:FO 06 

47 

REO 

RTN2 

** YES-UE'RE FINISHED 

938A:C5 FO 

48 

CMP 

MB 

#* HAVE UE REACHED VB YET ? 

938C: 90 C6 

49 

RCC 

LIA 

** NO-START THE NEXT LINE 

938E:F0 C4 

50 

BEQ 

LIA 

** N0-THIS IS LAST LINE 

9390:60 

51 RTO2 

RTS 


** DONE-EXIT ROUTINE 

*« SUCCESSFUL ASSEMBLY : NO ERR0RS 


Listato 4 





S0URCE FILE: REVDIR 




0000: 

1 * REVDIR ROUTINE 


0000: 

2 * 




0000: 

3 « (C) 1985 BY APPLICANDO 4 MICROSPARC INC. 

0000: 

4 * S-C ASSEMBLER 


0000: 

5 « 




- NEXT OBJECT FILE NAME IS REVDIR.OBJO 

92F8: 

6 

ORO 

192F8 


00FC: 

7 VT 

EQU 

*FC 

** DEC1MAL 252 

00FD: 

8 VB 

EQU 

*FD 

** DECIMAL 253 

00FE: 

9 HR 

EOU 

*FE 

«* DECIMAL 254 

OOFF : 

10 HL 

EQU 

*FF 

** DECIMAL 255 

0026: 

11 HBASL 

EQU 

*26 

« DECIMAL 38 (SCREEN 8ASE 

0027: 

12 HBASH 

EQU 

*27 

** DECIMAL 39 ADDRESS) 

0006: 

13 Y0 

EQU 

*6 

« DECIMAL 6 

0OF9: 

14 NUBYTE 

EQU 

*F9 

»* DECIMAL 249 

00FA: 

15 BASL 

EQU 

*FA 

** DECIMAL 250 (TABLE BASE 

OOFB: 

16 BASH 

EQU 

*FB 

** DECIMAL 252 ADDRESS) 

9464: 

17 YADDR 

EQU 

*9464 

** DECIMAL 37988 (READ YTABLE) 

CO 54; 

18 PAGE1 

EQU 

1C054 


CO 55: 

19 PAGE1X 

EQU 

*C055 


93DA: 

20 SCAN 

EQU 

Ì93DA 


92F8:A9 00 

21 REVDIR 

LDA 

40 

*» CALL 37624 T0 ENTER 

92FA : 85 FA 

22 

STA 

BASL 

** P01NT T0 START OF TABLE 

92FC;A5 FD 

23 

IDA 

MB 

** GET B0TT0M Y-COORDINATE 

92FE:85 06 

24 

STA 

YO 

** STORE IN *6 FOR USE BY YADDR 

9300:20 64 94 

25 LIA 

JSR 

YADDR 

** RETURNS LO=HBASL'HI=HBASH 

9303:A4 FF 

26 

LDY 

HL 

« SET Y-REG T0 LEFTMOST BYTE 

9305:8D 55 CO 

27 L2A 

STA 

PAGE1X 

»* DRAW AUXIL1ARY MEMORY 

9308:20 28 93 

28 

JSR 

R 

** ROTATE/DRAW DATA BYTE 

9308:8D 54 CO 

29 

STA 

PAGE1 

** DRAW MAIN MEMORY 

930E: 20 28 93 

30 

JSR 

R 

** ROTATE/DRAW DATA BYTE 

9311:C8 

31 

INY 


** POINT TO NEXT ADDRESS --> 

9312:C4 FE 

32 NC2 

CPY 

HR 

** HAVE WE PASSED HR YET ? 

9314:90 EF 

33 

BCC 

L2A 

** NO-GET THE NEXT ADDRESS 

9316 :FO ED 

34 

BEQ 

L2A 

« NO-WE'RE D0ING HR N0W 

9318 :C6 06 

35 

DEC 

Y0 

« MOVE UP T0 THE NEXT LINE 

931A:A5 06 

36 

LDA 

YO 

** GET NEW Y-COORDINATE 

931C:C9 FF 

37 

CMP 

4*FF 

** HAS Y-COORDINATE REACHED 0 ? 

931E : F0 04 

38 

BEQ 

RTN2 

** YES EU'RE FINISHED 

9320:C5 FC 

39 

CMP 

VT 

** HAVE WE PASSED VT ? 

9322.-B0 DC 

40 

BCS 

LIA 

** NO-START THE NEXT LINE 

9324:20 DA 93 

41 RTN2 

JSR 

SCAN 

** D0NE-REVISE BLOCK TABLE 

9327:60 

42 

RTS 


** EXIT ROUTINE 

9328:A2 00 

43 R 

LDX 

40 

** sa OFFSa P0INTER=0 

932A:A1 FA 

44 

LDA 

(BASL.X) 

«* Ga SMPE BYTE FR0M TABLE 

932C:C9 7F 

45 

CMP 

4127 

** IS BYTE 01111111 ? <*7F> 

932E:F0 10 

46 

BEQ 

J2 

*« YES-N0 NEED TO REVERSE 

9330:C9 01 

47 

CMP 

41 

** IS BYTE 00000000 ? (100) 

9332:90 OC 

48 

BCC 

J2 

** YES-N0 NEED TO REVERSE 

9334:86 F9 

49 

STX 

NUBYTE 

** Sa ALL BITS TO ZERO 

9336:4A 

50 NXTB1T 

LSR 

A 

« PUSH BIT OFF SMPE BYTE-) 

9337:26 F9 

51 

ROL 

NUBYTE 

** PUT BIT IN RFJERSE BYTE x- 

9339:E8 

52 

1NX 


** BLMP BIT C0UNTER 

933A:E0 07 

53 

CPX 

47 

** HAVE WE DOME BITS 0-6? 

933C:90 F8 

54 

BCC 

NXTBIT 

*» N0-G0 DO NEXT BIT 

933E:A5 F9 

55 

LDA 

NUBYTE 

»* LOAD REVERSED BYTE 

9340:91 26 

56 J2 

STA 

(HBASL) 

Y ** LOAD REVERSED BYTE 0N SCREEN 

9342:E6 FA 

57 

INC 

BASL 

** POINT TO NEXT TABLE ELEMENT 

9344;DO 02 

58 

BNE 

J3 

«* IF x256 BYTES-JLMP 

9346 :E6 FB 

59 

INC 

BASH 

** PAGE 0VERFL0W-G0T0 NEXT PAGE 

9348:60 

60 J3 

RTS 


** FINISHED BYTE ROTATI0N 

*** SUCCESSFUL ASSEMBLY: NO ERRORS 



VB/HR e passano di byte in byte, ter¬ 
minando a VT/HL; pertanto DRAW 
visualizzerà la figura esattamente co¬ 
me è stata esplorata da SCAN. 

DRAWDN comincia con il mettere 
i byte della figura sullo schermo a 
VT/HR, poi prosegue fino a VB/HL. 
Il risultato è che DRAWDN disegnerà 
la figura capovolta. Questa routine 
può essere usata per capovolgere le 
figure oppure, come vedremo presto, 
sia DRAW sia DRAWDN possono 
essere usate per portare figure in avan¬ 
ti da dietro altre figure. Sceglierete 
l’una o l’altra routine a seconda che 
veniate da dietro un’altra figura alla 
sommità o alla base della figura. 

La routine REVDIR comincia l’ela¬ 
borazione della figura a VB/HL e la 
termina a VT/HR. Qui l’effetto consi¬ 
ste nell’inversione della figura da sini¬ 
stra a destra. 


Le routine MOVE $9283 
Questa serie di routine (listato 5) sarà 
molto utile da impiegare nell’anima¬ 
zione. Ecco ciò che fa ogni singola rou¬ 
tine. 


EORON $9283 — Guardando le linee 
27 e 34 delle routine DRAW e 
DRAWDN troverete le istruzioni 
EOR (HBASL),Y. Queste istruzioni 
modificano il byte di dati della figura 
nel presente sfondo dello schermo pri¬ 
ma di disegnare sullo schermo. Ciò è 
molto utile per far sì che le routine 
DRAW e DRAWDN cancellino le fi¬ 
gure dallo schermo. La funzione EOR 
è inoltre utile per spostare le figure 
sullo schermo o su altre figure, e per 
ripristinare le configurazioni di bit sul¬ 
lo schermo quando la figura va via. La 
routine EORON mette le istruzioni 
EOR (HBASL),Y nelle linee 27 e 34 
sia di DRAW sia di DRAWDN esatta¬ 
mente come appaiono nei listati 2 e 3. 


EOROFF $928D — Questa routine ri¬ 
muove le istruzioni EOR (HBASL),Y 
da DRAW e DRAWDN, sostituendo¬ 
le con istruzioni NOP (Nessuna Ope¬ 
razione). In buona parte dell’anima¬ 
zione non vorrete avere in funzione le 
istruzioni EOR. 


MOVERT $92AC — Questa routine è 
utilizzata con figure che si spostano 
verso destra per INCrementare i valo¬ 
ri di HR e HL. 


m 
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MOVELF $92B7 — Questa routine 
non fa che DECrementare i valori di 
FIR e F1L ed è usata con figure che si 
spostano verso sinistra. 


GOUP $92C0 - La routine GOUP 
DECrementa i valori di VT e VB per 
figure che si spostano verso l’alto. 


GODOWN $92C9 — Questa routine 
INCrementerà i valori di VT e VB per 
figure che si spostano verso il basso. 


YINCRU $92D4 — Per usare questa 
routine dovete prima scrivere con PO- 
KE nella locazione di memoria 227 
(SE3) il numero dei punti verticali di 
cui volete che si sposti la figura. La 
routine sottrarrà poi quel valore 
(YINCR) sia da VT sia da VB, facen¬ 
do sì che la figura si sposti in su di 
YNCR coordinate di schermo. 


YINCRD $92E5 — Questa routine è 
simile a YINCRU, con la differenza 
che aggiunge il valore di YINCR sia a 
VT sia a VB per figure che si spostano 
verso il basso. 

Questa serie di routine vi renderà 
molto facile la manipolazione dei valo¬ 
ri di VT, VB, HR e HL per spostare le 
figure sullo schermo. Notate che cia¬ 
scuna delle routine di spostamento 
comprende protezioni che non per¬ 
metteranno ai valori di VT, VB, HR e 
HL di superare i limiti legali di 0—39. 
Una volta aggiunte al vostro driver 
tutte queste routine salvatele su di¬ 
schetto con il comando: 

BSAVE DHR.DRIVE- 
R,A$9283,L$37D 

Creazione di figure 
in doppia Hi-Res 

Il listato 6 è un breve programma 
che creerà figure di astronavi e le sal¬ 
verà automaticamente sul dischetto. E 
sufficiente introdurre il programma ed 
eseguirlo con RUN ; vedremo poi che 
cosa sa fare. 

Le linee 80-140 sono di facile com¬ 
prensione, dato che utilizzano le stesse 
istruzioni dell’articolo precedente. 

Le linee 150—190 provvedono con 
diligenza a disegnare l’astronave sullo 
schermo usando una serie di punti ter¬ 
minali HPLOT che sono definiti nelle 


Listato 5 


SOURCE FILE: MOVE R0UT1NES 
0000: 1 « MOVE R0UTINES 

0000 : 2 * 

0000: 3 * (C) 1985 BY APPLICANDO 4 MJCR0SPARC INC. 

0000: 4 * TOOL KIT ASSEMBLER 

0000: 5 * 

- NEXT 0BJECT FILE NAME IS MOVE R0BTINES.0BJ0 

9283: 4 0RG 49283 


00FC: 

7 VT 

EQU 

♦FC 

00FD: 

8 VB 

EQU 

♦FD 

OOFE: 

9 HR 

EQU 

♦FE 

00FF: 

10 HL 

EQU 

♦FF 

00E3: 

11 YINCR 

EQU 

♦E3 

9283:A9 51 

12 E0R0N 

LDA 

#♦51 

9285:20 92 92 

13 

JSR 

ST0RE1 

9288:A9 24 

14 

LDA 

#♦24 

928A:4C 9F 92 

15 

JMP 

ST0RE2 

928D:A9 EA 

14 E0R0FF 

LDA 

«♦EA 

928F: 20 9F 92 

17 

JSR 

ST0RE2 

9292:8D 40 93 

18 ST0RE1 

STA 

♦9340 

9295:8D 4F 93 

19 

STA 

♦934F 

9298:8D A8 93 

20 

STA 

♦93A8 

9298:8D B7 93 

21 

STA 

♦93B7 

929E:40 

22 

RTS 


929F:8D 41 93 

23 ST0RE2 

STA 

♦9341 

92A2:8D 70 93 

24 

STA 

♦9370 

?2A5:8D A9 93 

25 

STA 

♦93A9 

92A8:8D B8 93 

24 

STA 

♦93B8 

92AB:40 

27 

RTS 


92AC:A5 FE 

28 M0VERT 

LDA 

HR 

92AE:C9 27 

29 

CMP 

#39 

92B0:B0 04 

30 

BCS 

J1 

92B2:E4 FE 

31 

INC 

HR 

92B4:E4 FF 

32 

INC 

HL 

92B4:40 

33 J1 

RTS 


92B7:A5 FF 

34 MOVELF 

LDA 

HL 

92B9:F0 04 

35 

8EQ 

J2 

92BB:C4 FE 

34 

DEC 

HR 

92BD:C4 FF 

37 

DEC 

HL 

92BF: 40 

38 J2 

RTS 


92C0:A5 FC 

39 GOUP 

LDA 

VT 

92C2 : F0 04 

40 

BEQ 

J3 

92C4:C4 FC 

41 

DEC 

VT 

92C4:C4 FD 

42 

DEC 

VB 

92C8:40 

43 J3 

RTS 


92C9:A5 FD 

44 G0D0DJN 

LDA 

VB 

92CB:C9 BF 

45 

CMP 

#191 

92CD:B0 04 

44 

BCS 

J4 

92CF:E4 FC 

47 

INC 

VT 

92D1:E4 FD 

48 

INC 

VB 

92D3:40 

49 J4 

RTS 


92D4:A5 FC 

50 YINCRU 

LDA 

VT 

92D4:38 

51 

SEC 


92D7:E5 E3 

52 

SBC 

YINCR 

9209:30 09 

53 

BMI 

J5 

92DB: 85 FC 

54 

STA 

VT 

92DD:A5 FD 

55 

LDA 

VB 

92DF: 38 

54 

SEC 


92E0:E5 E3 

57 

SBC 

YINCR 

92E2:85 FD 

58 

STA 

VB 

92E4:40 

59 J5 

RTS 


92E5:A5 FD 

40 YINCRD 

LDA 

VB 

92E7 :18 

41 

CLC 


92E8:45 E3 

42 

ADC 

YINCR 

92EA:C9 CO 

43 

CMP 

#192 

92EC:B0 09 

44 

BCS 

J4 

92EE: 85 FD 

45 

STA 

VB 

92F0 :A5 FC 

44 

LDA 

VT 

92F2:18 

47 

CLC 


92F3:45 E3 

48 

ADC 

YINCR 

92F5:85 FC 

49 

STA 

VT 

92F7:40 

70 J4 

RTS 



*** SUCCESSFUL ASSEMBLY: NO ERR0RS 


»* DEC1MAL 252 
** DECIMAL 253 
*« DECIMAL 254 
** DECIMAL 255 
** DECIMAL 227 
** CALL 37507 T0 ENTER 
*» INSERT E0R (HBASL).Y 
t» IN DRADI AND D RAGION 

** CALL 37517 T0 ENTER 

** REMOVE EOR (HBASL),Y FR0M DRAU/DRAUDN 


** CALL 37548 T0 ENTER 

** INCREMENT HR AND HL 
** DON'T ALLODI HR>39 


** CALL 37559 T0 ENTER 

** DECRENENT HR MD HL 
** DON'T ALLODI HLxO 

** CALL37548 T0 ENTER 

** DECREMENT VT MD VB 
** DON'T ALLODI VTxO 

** CALL 37577 T0 ENTER 

** INCREMENT VT AND VB 
** DON'T ALLODI VBM91 


** CALL 37588 T0 ENTER 


** SUBTRACT YINCR 
«* FR0M VT AND VB 
** DON'T ALLODI VTxO 


** CALL 37405 T0 ENTER 


** ADD YINCR 
** T0 VT AND VB 
** DON'T ALLODI VB>191 


| 
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Listato 6 


10 REM ********************** 

20 REM * SHAPE.MAKER * 

30 REM * DI ROBERT R. DEVINE * 

40 REM * COPYRIGHT (C) 1985 » 

50 REM * BY APPLICANDO 4 * 

40 REM * M1CROSPARC INC. * 

70 REM «*****#**#**#**»*»***»# 

80 PRINT CHR$ (4) , BLOAD DHR.DRIVER"; CALI 37999: HIMEM; 37 

507: REM LOAD/SETUP/PROTECT 
90 CALL 37953: REM 1NIT 
100 HGR : CALL 37928: REM PULISCE LO SCHERMO DHR 
HO POKE 49153,0: POKE 49234,0: REM 80ST0RE /SCHERMO PIENO 
120 HCOLOR= 3: GOTO 150 

130 POKE 49234,0 :C = 1NT <X / 7): IF C / 2 = 1NT (C / 2) 
THEN POKE 49237,0: 

140 XC = INT (C / 2M X / 7 - C:XC = 1NT <XC * 7 * .5): 
RETURN 


istruzioni DATA. La figura è disegna¬ 
ta esattamente come è definita nella 
figura 1. La riga supplementare di by¬ 
te vuoti sopra la figura e quella sotto la 
figura si trovano lì in modo che la figu¬ 
ra si cancelli mentre la spostate qua e 
là sullo schermo. 

La linea 200 scrive con POKE il va¬ 
lore di SHNUM (memorizzerete la fi¬ 
gura a $9000). Poi imposta i valori di 
VT, VB, HR e HL. Infine fa lo SCAN 
in memoria della figura. A questo 
punto la tavola delle figure a blocco è 
stata creata in memoria ed è disponibi¬ 
le per l’impiego con le routine di dise¬ 
gno. 

La linea 210 salva la tavola delle 
figure su dischetto. 

La linea 220 porta i valori di HR e 
HL in un’altra parte dello schermo e fa 
una prova disegnando con DRAW la 
figura dalla tavola. Se adesso non ci 
sono sullo schermo due astronavi vuol 
dire che c’è un problema o con la routi¬ 
ne SCAN o con quella DRAW. 

La linea 230 porta HR e HL in un’al¬ 
tra parte ancora dello schermo e fa il 
DRAWDN della figura dalla tavola. 
La terza astronave che compare sullo 
schermo dovrebbe essere disegnata 
capovolta. 

La linea 240 cambia il numero della 
figura (SHNUM) in 143 ($8F00) e 
mette con SCAN la figura capovolta in 
un’altra tavola delle figure. Dovreste 
notare che, dato che DRAWDN dise¬ 
gna sempre la figura capovolta rispet¬ 
to al modo in cui ne è stato fatto lo 
SCAN, ora che avete fatto lo SCAN 
della figura 143 capovolta DRAWDN 
disegnerà la figura 143 nella giusta po¬ 
sizione diritta. 

La linea 250 salva su dischetto que¬ 
sta seconda tavola delle figure. 

A questo punto ci sono due figure 
salvate sul dischetto. La figura 144 sa¬ 
rà disegnata nella sua giusta posizione 
diritta con DRAW, e la figura 143 sarà 


TAVOLA 1: SOMMARIO DELLE ROUTINE AGGIUNTIVE 


None 

della routine 

DEL DHR DRIVER 

Indirizzo Indirizzo Funzione 
di chiamata esadecimale della routine 

SCfW 

37850 

$93DA 

Crea una tavola delle figure a blocco 

dallo scherno. 




DRAW 

37780 

$9394 

Disegna una figura dalla base alla 

sanniti. 




DRAUDN 

37708 

$934C 

Disegna una figura dalla somnitt alla 

base. 




REVDIR 

37424 

$92F8 

Inverte la figura e crea una nuova 

tavola. 




YINCRD 

37405 

$92E5 

Aggiunge INCR a VT e VB. 

YINCRU 

37588 

$9204 

Sottrae YINCR da VT e VB. 

G0D0UN 

37577 

$92C9 

Aggiunge uno a VT e VB. 

G0UP 

37548 

$92C0 

Sottrae uno da VT e VB. 

MQVELF 

37559 

$9287 

Sottrae uno da HR e HL. 

M0VERT 

37548 

$92AC 

Aggiunge uno a HR e HL. 

E0R0FF 

37517 

$928D 

Cancella le funzioni DRAW e DRAWDN 

E0R. 




E0R0N 

37507 

$9283 

Installa le funzioni DRAW e DRAUDN 

EOR. 




POKE SPECIALI DA USARE CON IL DRIVER 

POKE 227.YINCR 

Determina il valore 

che YINCRU e YINCRD dovranno usare per 

modificare VT e VB. 



POKE 251,SHNUM 

Dice a SCAN, DRAW, 

DRAUDN e REVDIR dove trovare la tavola 

delle figure. 




POKE 252,VT 

Imposta 

la coordinata Y pi' alta deila figura. 

POKE 253,VB 

Imposta 

la coordinata Y pi' bassa della figura. 

POKE 254,HR 

Imposta l'offset d' 

indirizzo pi' a destra della figura. 

POKE 255,HL 

Imposta 

l'offset d' 

indirizzo pi' a sinistra della figura. 


Notate che esistono molti altri punti nei quali potreste decidere di introdurre una 
routine pilota (driver) per eseguire funzioni speciali. Se desiderate intraprendere 
qualche azione che non è qui descritta, scorrete ogni listato per vedere se qualche 
altro punto d'introduzione possa assolvere il compito. Ci sono anche molti modi in 
cui potreste cambiare le funzioni di una routine con pochi semplici POKE. Per 
esempio potreste cambiare le routine GODOWN e YINCRD per restare al disopra di 
VB=159 se steste usando il modo misto testo e grafica, oppure potreste introdurre 
alcuni POKE per cancellare la funzione SCAN automatica di REVDIR. 


150 F0R X = 0 T0 19: READ Y: READ Yl: G0SUB 130: HPL0T XC,Y 
T0 XC,Y1: NEXT : REST0RE 

140 F0R X = 39 T0 20 STEP - 1: READ Y: READ Yl: GOSUB 130: 
HPL0T XC,Y T0 XC.Y1: NEXT 

170 POR M = 4 T0 30 STEP 8: F0R X = M T0 M + 3: READ Y: GOS 
U8 130: HPL0T XC,Y T0 XC,5: NEXT X,M 
180 DATA 5,4,5,4.5,7,5,7,4.8,4,8,7,9,7,9,7,10,7,10,3,10,3,1 
0,2,11,2,1f,j,(l,7,l{,^,il ,7,11,i,Ì2,1,12 
190 DATA 4,4,3,3,2,2,i,1,1.1,2,2,3,3,4,4 
200 POKE 251,144: POKE 252,0: POKE 253,13: POKE 254,2: POKE 
255,0: CALL 37850: REM SCAN THE SHIP 
210 PRINT CHR$ (41'BSAVE SHAPE-U #144,A$9000,L84": REM SA 
ME 'DRAW' SMPE 

220 POKE 254,12: POKE 255,10: CALL 37780: REM DRAU IT 

230 POKE 254,22: POKE 255,20: CALL 37708: REM DRADON IT 

240 POKE 251,143: CALL 37850: REM SCAN DRAWDN SHAPE 

250 PRINT CRR$ <4>"BSAVE SHAPE-D #143,A*8F00,L84": REM SA 
ME 'DRAWDN' SHAPE 

240 POKE 251,144: POKE 254,32: POKE 255,30: CALL 37424: REM 
REUDIR IT 
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Listate 

7 








92F0- 

A5 

FC 

18 

65 

E3 

85 

FC 

60 

9388- 

F0 

06 

C5 

FD 

90 

C6 

F0 

C4 









92F8- 

A9 

00 

85 

FA 

A5 

F0 

85 

06 

9390- 

60 

FF 

00 

00 

A9 

00 

85 

FA 










9300- 

20 

64 

94 

A4 

FF 

8D 

55 

CO 

9398- 

A5 

F0 

85 

06 

20 

64 

94 

A4 

-O 

r-O 

co 

co 

.9418 







9308- 

20 

28 

93 

80 

54 

CO 

20 

28 

93A0- 

FE 

A2 

00 

Al 

FA 

80 

54 

CO 

9283- 

A9 

51 

20 

92 

92 




9310- 

93 

C8 

C4 

FE 

90 

EF 

F0 

ED 

93A8- 

51 

26 

91 

26 

E6 

FA 

00 

02 


EA 


9318- 

C6 
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disegnata nella sua giusta posizione di¬ 
ritta con DRAWDN. 

La linea 260 seleziona nuovamente 
la figura 144, sposta di nuovo HR e HL 
e disegna una versione invertita della 
figura 144. Probabilmente non notere¬ 
te alcuna differenza in questa forma 
invertita con REVDIR dato che è sim¬ 
metrica; tuttavia se la figura appare 
esatta sullo schermo potete essere ra¬ 
gionevolmente certi che REVDIR 
funziona a dovere. 

Dovreste rendervi conto che la ta¬ 
vola delle figure 144 è stata modificata 

I 


(soltanto nella memoria, non sul di¬ 
schetto) dalla routine REVDIR che 
ha rifatto lo SCAN della figura. Se 
guardate la figura 1 noterete che ci 
sono due punti vuoti alla destra della 
figura; quando REVDIR ha svolto il 
suo compito ha spostato quei due pun¬ 
ti vuoti alla sinistra della figura. 

Come potete vedere da questo bre¬ 
ve programmino la parte più difficile è 
stata il disegno della figura originale 
sullo schermo mediante istruzioni 
HPLOT. Una volta che la figura è sta¬ 
ta impostata sullo schermo, la routine 


SCAN ha reso molto facile tradurre il 
disegno in una tavola di figure a bloc¬ 
co. 

Nel prossimo articolo scoprirete co¬ 
me animare le figure da voi create e 
come produrre il movimento in doppia 
alta risoluzione sia in Applesoft sia in 
linguaggio macchina. Il vostro Apple 
//e o Ile ne sarà entusiasta. 

r -- - 

Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d’ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 

'- - X 
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dimensione prestazioni 


PIÙ POTENZA PER L’APPLE 


APPLE II e Ile, sistemi operativi: 

DOS 3.3, diversi DOS, PRODOS, CP/M 2.2 (vers. 56K), PASCAL 1.1 e 1.2 
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applicando 

si trova anche qui 

Ecco un elenco dei computer shop presso i quali è possibile abbonarsi ad Applicando, 
acquistare una copia, cercare un numero arretrato... 


VALLE D'AOSTA 


Aosta 

Informatique sas. 

Av. Conseil desCommis 14 

PIEMONTE 

Alba(CN) 

Centro computer. 

Via Paruzza 2 

Asti 

Gestione Dati srl. 

Via B. Buozzi45 

Biella (VC) 

Consul Computer srl. 

Via delle Rose 2 
Informatica Biella sas. 

Piazza S Paolo 1 B 

Domodossola (NO) 

Nuova Elettronica. 

Via Giovanni XXIII 68 

Novara 

DR srl, V. le XX Settembre 19 
SPA srl. Via A. Canobio 16/A 

Pinerolo(TO) 

Elaborazione Dati Pinerolo. 
Corso Piave 42 

Torino 

A B.Computer sas. 

Corso Grosseto 2(19 
Digitalsvncsnc. 

Corso Moncalieri 403 
Dimensione Personal. 

Via Bertela 22/e 
GE.NE.CA. srl. Via BertolaS 
Hobby Elettronica. 
ViaSaluzzo 11/F-G-H 
Omicron Computerssnc. 

C.so Duca degli Abruzzi 14 
PintoG.-Componenti elettr.. 
Corso Principe Eugenio 15 bis 
Teenosystem Computer Shop. 
Via Beaumont 10 
TeknoComputerssrl. 

Via MadamaCristina31 c 

LIGURIA 


Genova 

ComputerCenter. 

Via San Vincenzo 129 r 


SALS Informatica spa. 
via D'Annunzio 2 e 
V ie B. Partigiane 132 R 

Lavagna (GE) 

CR2 Informatica sne. 
Corso Genova 100 

La Spezia 

Softline srl. Via Piave 19 
Sanremo (IM) 

A.E.S.. Via Volta 24 

Savona 

Brianosnc. 

CorsoTardy e Beneeh 20 r 
Sestri Ponente (GE) 

All Computer sas. 

Via C. Menotti 136 r 

LOMBARDIA 


Almé(BG) 

Elcod. Viale Italia45 A 
Assago (MI) 

Basic Computers. Centro 
Commerciale Milano Fiori 

Bergamo 

Studio 15 srl. ViaOuarenghi 60 
Il mondo dell'informatica. 

Via PitentinoS 

Brescia 

Alfa computer. Via Bassi 26 
Brescia Computers srl. 

Via Malta 12 
Il Computer srl. 

Via B.Croce 23 
L'Informatica srl. 

Piazza Vescovado 1 
Personal Data, via Brozzoni 4 

Como 

Accaesse Informatica srl. 

Via Acquanera 46 
D S I. srl. Via DottesioS 

Gavardo(BS) 

Bit Shop, Via G. Quarena 120 
Lecco (CO) 

Computers Lecco snc. 

Via Nino Bixio 18/B 
Datamation, ViaTurati 10 

Lissone(MI) 

Computerlandia. 

Via Martiri Libertà 10.3 


Melegnano(Ml) 

L'Amico del Computer, 

Via Castellini 25 

Milano 

A G.Informatica srl. 

Via G.Silva 49 

Communications Engineering. 
Piazza Firenze 4 
Deltron srl. 

Viale Gran Sasso 50 
Edelektron srl. 

Corso Sempione 39 
Esprit, Via Bergamini 13 
Happv System. Piazza Diaz6 
Information Technology, 

Via dei Bossi 7 
All'Informatica Shop. 

Via Lazzaretto 2 
Maean sas. Via Broletto 39 
Microtech Sistemi. 

Via Bronzetti 2(1 
Polisistemi. Via Derna 19 
SH Computers srl. 

Viale Montenero33 
Small Business Computers, 

Via Vitruvio38 
Softec Computer. 

Viale E. Jenner23 

Monza (MI) 

ESI srl. Via Cavallotti 11 
Nikom Electronics, 

Via Asiago 7 

Pavia 

M.A.S.H. Computer Systems. 
Strada Nuova 86 
Senna Gianfranco snc. 

Via Calchi 5 

Trezzano sul naviglio (MI) 
Personal computer shop. 

Via L.da Vinci 36 

Segrate (MI) 

Compusoft, 

Milano2, Resid. Lago 

Varese 

IRPE srl, Via Morazzone 8 


TRENTINO 


Trento 

SI.GE. sas. Via Piave 28 


TRIL LI VENEZIA 
GIULIA 


Gorizia 

Elcom. C.so Italia 149 
Pordenone 
Electronic Center snc. 
Viale Libertà 79 

Turriaco (GO) 

Tecno Power Elettronica. 
Via Marconi 19 

Udine 

BIT Computers. 

Via Pozzuolo 107 
PS Elettronica sas. 

Via Tavagnacco 89/91 C.C. 

VENETO 


Bassano del Grappa (VI) 

A Tre snc. Via Buonarroti 23 
Conegliano (TV) 
Computing Program, Via G. 
Piovesana 32 

Mestre (VE) 

Pacinotti sas. Via Torino 92 
Mirano (VE) 

Saving Elettronica, 
via Gramsci 40 

Montebelluna (TV) 

Uomo Computer, 

C.so Mazzini 53 

Padova 

Capovilla&C.sas, 

Galleria Scrovegni 5 
Computer Service srl. 

Via Beethoven 3 
E.D.P. Sistemi srl. 

Via Borromeo 16 

Treviso 

A5 Computers srl, 

Borgo Cavour 37/A 

Venezia 

AZTelemarket, 

Cannaregio 5898 
Personal Computer, 
Cannaregio 

Verona 

ARMU srl. 

Via Teatro Filarmonico 3 
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Esacomp srl, Via Roveggia 43 
MOS 80 sas. Via Germania 21 

Vicenza 

Sevi sas. Via S. Agostino 87 

Villafranca (VR) 

Studio 4, 

Corso Vitt. Emanuele 70 

EMILIA ROMAGNA 


Bologna 

CEDA Minicomp srl. 

Piazza Aldrovandi 2/2 
Computer Systems, 

Via Ercolani 10/D 
EDPSistemi BOsrl, 

Viale Pietramelara61/F 
SERCOM, Via B. da Carpi 9/B 

Cesena (FO) 

SHC snc. Corso Cavour 157 

Ferrara 

Soc. Termomeccanica, 

Via Garibaldi 195 
Mazzacurati Claudio, 

Viale Cavour 186/188 
Tecnomeccanica, 

Via Garibaldi 195 

Fidenza (PR) 

Archimede, 

Via Vito Aimi 2 
RCM Computer. 

Via Cornini Malpeli 11 

Fiorenzuola d'Arda (PC) 
Centro Computer. 

Corso Garibaldi 125/A 

Forlì 

A-ZComputersrl, 

ViaCignani 7 

Kronos. Via Oreste Regnoli 30 

Modena 

Masetti Elettronica srl. Via 
Emilia Centro 211 

Panna 

RCM Computer. 

ViaFarini51a 

Piacenza 
RCM Computer. 

C.so Vittorio Emanuele 96 

Reggio Emilia 
Computer Center srl, 

Via D. Alighieri 
Esaprogetti. Via F.Filzi 2 

Rimini 

Computer Line. Via Coletti 61 
Scandiano (RE) 

Informatica System. 

Via Statale 13/A 

Viserba di Rimini (FO) 
Computer Center. 

Via Palletta 25/A 

TOSCANA 


Borgo a B uggiano (PT) 

CO-DI snc. Via 24 Maggio 119 


Firenze 

Anfrel Informatica sas. 

Via Masaccio 50 e 
Viale Gramsci 10/R 
Elettronica Cento Stelle srl. 

Via Cento Stelle 5/B 
Paolettì Ferrerò. 

Via il Prato 40/42 R 
P.T.E. snc. Via Duccio 
da Buoninsegna 60 
Soluzioni EDP srl. 

Corso dei Tintori 39R 

Grosseto 

C.I.S.I.D. Computer snc. 

Via Aurelia Nord 35 e 
ViaPasubio 1-11 

Massa 

Euro Computer sas. 

Piazza C. Bertagnini 4 

Montecatini 

CO-DI snc. Via I Maggio 20/22 
frazione Margine Coperta 

Perigliano (PI) 

Memor Informatica srl. 

Via Togliatti 2-4-8 

Piombino (LI) 

Centro Ufficio sdf. 

Via F. Ferrer 37/39 

Pisa 

Società Elettronica Tirrena. 

Via Fucini 20 

Pistoia 

Inter Systems. 

Via Pietro Mascagni 14 

Pontedera(PI) 

Data Port srl. 

Via Brigate Partigiane 27 

S. Giovanni Valdarno(AR) 

I.C.S. srl. Via Garibaldi 46 

UMBRIA 

Cerbara di città (PG) 

Computer Post. 

Via Madonna del Vento 

Foligno (PG) 

Linea informatica snc. 
ViaGaribaldi 81 

LAZIO 

Lido di Ostia (Roma) 

A.C.S. - Advanced Computer 
System. Via S. Consacchi 10 

Roma 

BIOTECH srl. 

Via S. Valentino 18 
Bit Computers. 

Via Giovanni Gastaldi 33 
Computer Center srl. 

Via Nizza 48/52 
Computerà rt srl. 

Via Michele di Landò 41 
Computime srl. Viale Parioli 25 
Easy Byte. 

Via Giovanni Villani 24 
E.D.P. Market. 

Via E. Fermi 116/118 


E.M.EUR Micro Computer, 
Viale C. Pavese 267 

5.1. G.E.E.I. srl. 

Via Nomentana 265-273 

5.1. PR.EL. srl, 

Via Pompeo Magno 94 

Roma EUR 

Bit Computers. 

Via F. Domiziano 10 

Viterbo 

Alfa Computer, 

Via Palmanova 12/C 

MARCHE 

Civitanova Marche (MC) 
N.B.P. Elettronica. 

Via Don Bosco 11/13 

Jesi (AN) 

E.M.J. sas. Via F. Conti 4 
New Computer srl. 

Via N. Sauro 17/A 

Torrette di Ancona (AN) 
Sistedasrl, Via Velino 5 

ABRUZZO 

Avezzano(AQ) 

Aspron. Via Ameriea 10/12 

Chieti 

Computer Point sas. 

Viale Unità d'Italia 5 

L'Aquila 

S E.A D. srl, viaG. di 
Vincenzo 

Lanciano (CH) 

Electronic Microsystems. 

Via della Pace 3 

MOLISE 

Campobasso 

Informatica Molisana, 

Via 24 Maggio 185/189 

CAMPANIA 

Avellino 

I.C.C. elettronica srl. 

Via degli Imbimbo 126 

Barano d'Ischia (NA) 

Matterà Antonio. Via Roma 61 

Benevento 

Masone Informatica, 

Viale dei Rettori 57 

Napoli 

Computer Systems srl, 

ViaG. Santacroce 40 
Golden Computer srl. 

Via Michelangelo 7 
I.C. International Computer, 
Viale A. Gramsci. 176 
La Barbera Carlo sas. 

Via Toledo 320 

Salerno 

Computer System. 

Via E. Bottiglieri 19 
SEDA srl, 

via Parmenide c/o Iannone 


CALABRIA 

Catanzaro 

Visicomsrl, 

Via Minniti Ippolito 10 

Cosenza 

Micro Systems sdf. 

Via Pane Bianco 26 

Gioia Tauro (RC) 

Tecnocompsnc, 

Via Nazionale SS 111/117 

Reggio Calabria 

GLM Informatica snc. 

Via De Nava98 

Spezzano A Ibanese (CS) 
Iannibelli. Via Stragoda 48 

PUGLIA 

Bari 

L. e L. Computers srl. 

Largo 2 Giugno 4 
C'iessespa, 

Via Re David 176/D 

Foggia 

ISIsrl. 

Via Barletta 6 

Taranto 

Elettrojolly Centro srl. 

Via De Cesare 13 

BASILICATA 

Matera 

Lucana Sistemi srl. 

Via Don Minzoni 4 

SICILIA 

Catania 

Centro Informatica sdf. 

Via Firenze 211 
Computer Shop. 

Via E. Orlando 164 
SI.EL Informatica snc. 

Via Etnea 289 

Catanzaro 

Ce Sim sas Via Carlo V 174/180 

Messina 

C. E.E. srl. Via Industriale 116 
Cubetasrl. Via Cardines 12/14 

Milazzo (ME) 

Tectron Tecnologie Elet. srl. 
Via dei Mille 

Palermo 

Informatica Commerciale spa, 
Via Notarbartolo 26 

Ragusa 

Sosyco, Corso V. Veneto 597 

Trapani 

Gualano Eugenio, 

Via Virgilio 11 

SARDEGNA 

Sassari 

Bajardo. V.le Italia 16 
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Per chi 
comincia 


N uovi lettori, siate i benvenuti. Queste 
pagine sono per voi, e le ripeteremo a 
ogni numero per facilitare il primo incontro 
con Applicando e con il mondo di Apple. 
Ovviamente queste righe non intendono 
sostituire i manuali, dei quali consigliamo 
caldamente la lettura, ma possono bastare 
per chi intende soltanto utilizzare i pro¬ 
grammi che pubblichiamo, copiarli, salvar¬ 
li su dischetto e farli partire. 

Cominciamo con qualche rapidissima 
premessa su Apple //. Quando accendete 
per la prima volta il vostro Apple con un 
dischetto già inserito nel drive e la tastiera 
posizionata sull'inglese (per chi possiede 
Apple Ile e Ile), dovreste veder comparire 
sullo schermo il segno chiamato curso¬ 
re. o prompt, in inglese. Mentre se avete la 
tastiera posizionata su italiano, vedrete é. 
La sua presenza significa che potete fare 
una di queste tre cose: 

1) Fornire al computer comandi destinati 
al drive (per esempio CATALOG mostra il 
contenuto del dischetto, se si tratta di un 
dischetto in Basic). 

2) Fornire comandi nella versione per 
Apple del linguaggio Basic (e cioè l'Apple- 
soft Basic). 

3) Battere sulla tastiera righe di pro¬ 
grammi in Applesoft Basic. 

Per copiare un programma da Applican¬ 
do potrà essere necesario fare tutte e tre le 
cose. 

Per battere un programma 

di applicando 

Per prima cosa sarà opportuno leggere 
fino in fondo l’articolo che accompagna il 
programma. Può darsi che non capiate pro¬ 
prio tutto la prima volta: non preoccupate- 
vene, in seguito diventerà facilissimo. Cer¬ 
cate soprattutto le eventuali istruzioni che 
spiegano se occorre fare qualcosa di parti¬ 
colare per battere il programma. In ogni 
caso assicuratevi di aver pronto un dischet¬ 
to già inizializzato per poter salvare quel 
che avrete battuto. Per i dettagli su come 
inizializzare un dischetto vergine, guardate 
i manuali: chi proprio ai manuali fosse al¬ 
lergico, faccia così: a Apple spento inseri¬ 
sca il dischetto System Master nel drive 1, e 
accenda il computer: quando il drive avrà 
smesso di girare (lueina rossa di nuovo 
spenta), tolga il System Master dal drive e 
inserisca al suo posto un dischetto sicura¬ 
mente vergine e sicuramente mai usato (at¬ 
tenzione: si possono ri—inizializzare anche 
dischetti già usati, ma il loro contenuto va 
irrimediabilmente perso) ; ora basta battere 
NEW, Return, e poi INIT HELLO, sem¬ 
pre seguito da Return. 

Tutti i programmi in Basic consistono di 
una sequenza di righe di istruzioni. Tutte le 


righe sono numerate all'inizio, e possono 
contenere una o più istruzioni. Se le istru¬ 
zioni sono più d'una, esse saranno separate 
da segni di due punti (:). Per esempio: 


20 FOR J = 1 TO 5 : P R I N T 
CHR$(7):NEXT J 


Per copiare da Applicando un program¬ 
ma, inserendolo nel vostro Apple, occorre 
assicurarsi che la memoria operativa del 
computer sia vuota battendo NEW Return 
(questa istruzione non cancella nulla di ciò 
che è registrato sui vostri dischetti: libera 
soltanto la memoria del computer dall'ulti¬ 
mo programma usato), ed è necessario poi 
battere i listati così come sono stampati, 
riga per riga, compresi i numeri di riga, 
battendo Return solo quando si arriva al 
numero di riga successivo. Quando sarà 
stata copiata anche l’ultima riga e l’ultimo 
Return (a fine riga), si potrà salvare il pro¬ 
gramma su dischetto (il dischetto che avete 
inizializzato, o un altro già inizializzato in 
precedenza su cui ci sia spazio libero a suffi¬ 
cienza). Per salvarlo basterà battere il co¬ 
mando SA VE, seguito dal nome che inten¬ 
dete dare al programma che avete trascrit¬ 
to. Questo è tutto, ma vediamo passo per 
passo un esempio. 


10 REM CAMPANELLO 
20 FOR J = 1 TO 5 : P R I N T 
CHR$(7):NEXT J 
30 END 

Listato 1 


Per battere il semplice programma Cam¬ 
panello del listato 1 (produce solo un suono 
simile a quello di un campanello, null'al- 
tro), si seguirà questa sequenza: 

1) Battete NEW Return per cancellare 
dalla memoria qualsiasi programma prece¬ 
dentemente usato. (Se state lavorando su 
un Apple Ile o un Ile assicuratevi che il tasto 
CAPS LOCK, il primo in basso a sinistra, 
quello che permette di ottenere tutte maiu¬ 
scole, sia schiacciato). 

2) Battete la linea 10 esattamente com’è 
stampata e premete il tasto Return solo alla 
fine dell’ultima parola (CAMPANELLO). 

3) Battete allo stesso modo anche le linee 
20 e 30. 

4) Con un dischetto già inizializzato nel 
drive (nel drive 1, se ne avete due), battete 
SA VE CAMPANELLO Return, per regi¬ 
strare il vostro programma su dischetto. 

5) Poiché il vostro programma è ancora 
nella memoria del computer, per farlo gira¬ 
re basterà battere RUN e premere il tasto 
Return. Se cancellate la memoria facendo 
girare un altro programma o spegnendo il 



computer, per usare nuovamente il pro¬ 
gramma occorrerà inserire il dischetto nel 
drive e battere RUN CAMPANELLO Re¬ 
turn. 

Alcuni suggerimenti 

I suggerimenti che seguono possono ren¬ 
dere il lavoro di trascrizione un po' più 
facile: 

1) Se commettete un errore di battitura 
tn una riga e non avete ancora premuto il 
tasto Return, basterà tornare indietro con 
la freccetta sinistra, correggere l’errore, e 
tornare al punto in cui eravate con la frec¬ 
cetta destra, premendo Return come al so¬ 
lito solo a completamento dell’intera riga. 
Se invece vi accorgete dell’errore quando 
ormai avete premuto Return e siete passati 
a un’altra riga, completate tranquillamente 
la riga che state scrivendo, compreso il Re¬ 
turn finale; poi ribattete la riga in cui avete 
commesso l'errore: ribattetela per intero, 
con numero di riga e tutto il resto, e la 
nuova versione prenderà automaticamente 
il posto della vecchia. 

2) Siate particolarmente attenti a non 
commettere errori di trascrizione nelle ri¬ 
ghe in cui compare l’istruzione DATA. 
Nelle altre istruzioni un eventuale sbaglio è 
più facile da individuare, perché penserà 
eventualmente il computer a segnalarlo in 
seguito, nelle istruzioni DATA questo in¬ 
vece non avviene. 

3) Salvate periodicamente il programma 
mentre procedete, per minimizzare i guai 
di una eventuale interruzione di corrente. 
Se non avete tempo per trascrivere tutto il 
progamma, trascrivete fin dove potete o 
volete (ma comunque completando fino al 
Return la riga che state battendo), poi sal¬ 
vatelo su dischetto come se aveste finito. 
Per riprendere a trascrivere sarà sufficiente 
inserire il dischetto nel drive, accendere il 
computer, e battere LOAD seguito dal no¬ 
me che avete dato al programma, e da Re¬ 
turn (battete CATALOG se non ricordate 
più con che nome avete salvato il program¬ 
ma). La luce rossa sul drive si accenderà, e 
il vostro programma verrà caricato nella 
memoria operativa del computer. A questo 
punto battete LIST, e vedrete scorrere sul¬ 
lo schermo tutta la parte del programma 
che avevate già battuto. Continuate adesso 
tranquillamente dal punto in cui avevate 
interrotto. 

4) Prima di effettuare modifiche o ag¬ 
giunte, trascrivete l'intero programma e fa¬ 
telo girare per prova. Questo renderà più 
facile la ricerca di eventuali errori, isolando 
quelli commessi durante la battitura e la 
trascrizione. Non preoccupatevi per il nu¬ 
mero di errori di trascrizione che farete: è 
normale. Il computer vi segnalerà, riga per 
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riga, dove avete sbagliato. Basterà a questo 
punto controllare la riga, individuare l'er¬ 
rore commesso e ribattere correttamente 
l'intera riga. A questo punto occorre salva¬ 
re di nuovo il programma su dischetto. 

5) Le lettere minuscole possono essere 
usate solo all'interno di comandi che inclu¬ 
dono REM o tra virgolette. 

Programmi in 
linguaggio macchina 

Il Basic e il Dos sono ottimi linguaggi, 
ideati apposta per rendere più facile la pro¬ 
grammazione, ma l'Apple è in grado di 
ricevere comandi anche in un codice molto 
più vicino alla sua logica, chiamato linguag¬ 
gio macchina. Il linguaggio macchina è un 
po' la lingua madre dell'Apple, un pro¬ 
gramma così composto sarà quindi compre¬ 
so dal computer molto più velocemente di 
un programma scritto in Basic. Per creare 
programmi in questa lingua si usa spesso un 
programma chiamato Assembler. L'As- 
sembler permette al programmatore di 
scrivere in un codice più facile del linguag¬ 
gio macchina: l'assembly. In un secondo 
momento il programma stesso si tradurrà in 
linguaggio macchina. L'Apple infatti non 
conosce l’assembly. 

Molti dei programmi che troverete su 
APPLICANDO saranno scritti in ambe¬ 
due le versioni: assembly e linguaggio mac¬ 
china; in questo modo potrete inserire le 
istruzioni direttamente in linguaggio mac¬ 
china, senza dovervi procurare il program¬ 
ma Assembler. In questo caso le istruzioni 
dovranno essere inserite direttamente nel 
System Monitor (da non confondere col 
monitor video): per raggiungere il System 
Monitor è sufficiente battere CALL—151 e 
schiacciare il tasto Return. A questo punto 
sullo schermo comparirà un asterisco (*) 
che indica che è stato raggiunto il contatto 
con il System Monitor. Per inserire i listati 
scritti in linguaggio macchina occorrerà al¬ 
lora battere, per esempio, i seguenti co¬ 
mandi: 


300:A2 05 20 DD FB CA F0 03 4C 02 03 60 
Return 


In questa serie di istruzioni il '300' indica 
una locazione di memoria e i due punti 
dicono all’Apple di inserire i seguenti nu¬ 
meri (A2 e gii altri numeri in base 16) in 
quella locazione. I numeri sono in base 16 
(esadecimale); non è necessario saper cal¬ 
colare con questa base per trascrivere i pro¬ 
grammi in linguaggio macchina, ma è im¬ 
portante sapere che in questo tipo di lin¬ 
guaggio i numeri sono dati sempre in esade¬ 
cimale. 

Facciamo un breve esempio di program¬ 
ma scritto in linguaggio macchina. Il se¬ 
guente listato serve a indirizzare alcuni dati 
in una particolare locazione di memoria: 


300.30B 

0300-A2 05 20 DD FB CA F0 03 
0308-4C 02 03 60 

Listato 2 


I numeri a sinistra delle lineette (atten¬ 
zione: le lineette non vanno digitate, al loro 
posto occorre battere un "due punti") sono 
le locazioni di memoria, vale a dire gli indi¬ 
rizzi dello spazio di memoria in cui il dato 
dovrà essere conservato, e i numeri seguen¬ 
ti sono il contenuto, i dati da memorizzare 
nelle sette locazioni di memoria indicate. I 
due numeri separati da un punto presenti 
nella prima riga indicano gli indirizzi inizia¬ 
li e finali della parte di memoria considera¬ 
ta. Questo programma è la traduzione del 
listato numero tre, scritto in assembly. Co¬ 
me si noterà le colonne a sinistra sono mol¬ 
to simili al listato numero due, contengono 
infatti le locazioni di memoria, mentre la 
parte a destra contiene istruzioni in assem¬ 
bly. Esistono diversi programmi assembler 
e diverse disposizioni dei listati, ma in tutti 
sono presenti queste due diverse colonne. 


1 *RINGER PROGRAM 



2 

ORG 

$300 


3 

BELL EQU 

$FBDD 

0300: A2 05 

4 

LDX 

m 

0302: 20 DD FB 5 

LOOP JSR 

BELL 

0305: CA 

6 

DEX 


0306: F0 03 

7 

BEQ 

END 

0308: 4C 02 03 

8 

JMP 

LOOP 

030B: 60 

9 

END RTS 



Listato 3 


Per inserire i listati nella macchina è suf¬ 
ficiente eseguire le seguenti operazioni: 

1) Digitare CALL-151 Return per en¬ 
trare in contatto con il System Monitor, poi 
inserire la locazione di memoria, i due pun¬ 
ti e il contenuto della memoria; nel caso del 
listato numero due ad esempio si digiterà: 


300:A2 05 20 DD FB CA F0 03 Return 
308:4C 02 03 60 Return 


Un programma in Assembler sarà invece 
così inserito: 


300:A2 05 Return 
302:20 DD FB Return 
305:CA Return 
306: F0 03 Return 
308:4C 02 03 Return 
30B:60 Return 


State attenti a non inserire lo spazio tra i 
due punti e il primo numero seguente, 
mentre invece bisogna mettere lo spazio fra 
le coppie di numeri. 

2) Una volta inserito l'intero listato, 
schiacciate CTRL—C Return per tornare al 
livello BASIC indicato dal segno ’]'. 

3) Al contrario dei programmi in BASIC 
che iniziano nella stessa locazione di me¬ 
moria, e che possono essere salvati con un 
semplice SAVE. i programmi scritti in lin¬ 
guaggio macchina possono iniziare in di¬ 



versi punti della memoria. Per salvare lista¬ 
ti o dati in linguaggio macchina si dovrà 
indicare quindi la locazione alla quale ha 
inizio il programma da salvare e la lunghez¬ 
za dello stesso (in decimale o in esadecima¬ 
le). Per il programma usato prima come 
esempio, il comando sarà: 


BSAVE RINGER. AS300, L$C 


dove AS300 è la locazione di memoria di 
inizio programma e L$C è la lunghezza del 
programma (la lettera C corrisponde al nu¬ 
mero decimale 12). All’inizio dei listati in 
linguaggio macchina pubblicati su Appli¬ 
cando troverete sempre l’indicazione della 
locazione di memoria di inizio e fine pro¬ 
gramma; esempio: 300.3EA mentre nel 
corso dell’articolo troverete i parametri per 
salvare il programma, esempio: BSAVE 
RINGER, A$300,L$C. 

4) Per rivedere il listato che avete tra¬ 
scritto basterà battere 300.30B, e sullo 
schermo si riprodurrà tutto ciò che avete 
battuto. Per ottenere una copia sulla stam¬ 
pante, basterà battere PR # (£ se siete in 
tastiera italiana) seguito dal numero dello 
slot al quale avete collegato la stampante 
(normalmente il n. 1) Return e poi ancora 
300.30B Return. Le correzioni si fanno ri¬ 
battendo solo la riga contenente eventuali 
errori. 

5) Per far girare il programma basterà 
allora digitare BRUN RINGER, senza 
l’indirizzo. 

Quanto esposto sopra è valido sia per il 
DOS 3.3 (sistema operativo per la gestione 
del drive che veniva fornito prima dell’usci¬ 
ta del He) sia per il ProDOS (sistema opera¬ 
tivo fornito con il Ile). Usando il ProDOS 
occorre però fare alcune precisazioni. 

I comandi del tipo SAVE, LOAD, 
RUN, CATALOG, ecc. vengono accettati 
anche in forma minuscola. 

Per formattare un disco non si potrà più 
usare il comando INIT HELLO, ma sarà 
necessario usare il disco UTILITIES di Si¬ 
stema fornito con il computer. Durante 
questa operazione vi verrà chiesto se il no¬ 
me del disco, assegnato automaticamente 
dal computer, va bene oppure se volete 
cambiarlo. Infatti tutti i dischi formattati in 
ProDOS (indicati come Volume) hanno un 
nome e vengono riconosciuti indicando 
questo nome dopo un comando diretto al 
drive. Per esempio se volete vedere il cata- 
log di un disco chiamato BLANK, dovete 
battere CAT/BLANK. 

Per non ripetere continuamente il nome 
del disco potete battere, prima dei comandi 
diretti al drive, PREFIX/nome disco segui¬ 
to da RETURN. Da questo momento tutti 
i comandi al drive saranno diretti automati¬ 
camente al disco scelto. 

Per vedere il catalog è sufficiente battere 
CAT. 

Durante l'uso di alcuni programi scritti in 
ProDOS potreste trovarvi una richiesta del 
tipo "PATHNAME?"; non spaventatevi, il 
pathname è il nome del disco al quale vo¬ 
gliamo fare riferimento, scritto entro due 
barrette (/) e seguito dal nome del file che 
vogliamo salvare o caricare in memoria op¬ 
pure trasferire da un disco a un altro. 
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a^Qscuola 




Nel numero di Applicando di questo mese trova spazio un 
altro programma contenuto nel Progetto Seraphim, il 
software studiato negli Stati Uniti e importato per iniziativa 
dell’università di Bologna, dedicato aH’insegnamento 
della chimica con il computer. Di scena questa volta sono 
le leggi della cinetica chimica, nella simulazione di un 
esperimento di laboratorio. 


DOS 3.3 

-qim 

ProOOS 

quii 

APPLE //e 

qim 

APPLE //c 

quii 


Simulazione 
di un equilibrio 


C ontinua la pubblicazione della se¬ 
lezione di programmi estratti dal¬ 
la versione italiana del progetto Serap¬ 
him, che fornisce il supporto software 
per l'insegnamento della chimica negli 
istituti medi superiori II programma 
scelto per questo numero si chiama 
"Simulazione di un equilibrio", fa par¬ 
te, insieme ad altri tre programmi del 
dischetto "Cinetica ed equilibrio" e, 
come vedremo, consentirà di eseguire 
sul computer un interessante esperi¬ 
mento di laboratorio. 


Lo studio dell'equilibrio chimico è 
uno dei punti centrali di un corso di 
chimica di base per le connessioni con 
numerosi altri capitoli della chimica. 
Come per quasi tutti gli argomenti di 
chimica, anche questo andrebbe af¬ 
frontato con il supporto dell'esperi¬ 
mento di laboratorio, poiché sebbene 
tutte le reazioni chimiche possano es¬ 
sere adeguatamente illustrate qualita¬ 
tivamente in aula, l'esperienza di una 
valutazione quantitativa diretta si ri¬ 
vela indispensabile per comprensione 


approfondita dei processi che inter¬ 
vengono. A questo scopo il calcolato¬ 
re può essere un valido strumento per 
simulare quegli esperimenti che per 
praticità o per carenza di strutture non 
possono essere realizzati fisicamente. 
Inoltre la simulazione, rispetto aire- 
sperimento reale, offre alcuni interes¬ 
santi vantaggi, per esempio può essere 
ripetuta quante volte si desidera anche 
senza la presenza del docente. 

Nel nostro caso il programma forni¬ 
sce dati quantitativi su una reazione di 


Listato 


2020 

2030 

2040 

2050 

2000 

2070 

2080 

2300 

2310 

2320 

2330 

2331 

2332 

2333 
2335 

2340 

2341 


«01 .SIMULAZIONE DI EQUILIBRIO 

REM . 

REM . 

REM .DAVID ROBSON. 

REM .TOUSON HIGH SCH00L... 

REM .TOUSON .IVlRYLAND. 


REM 


. .MAGGIO,1982. 


REM 

TEXT 

HOME 

VTAB 6: 

PRIMI 

PRIMI 

PRIMI 


INFORMAZIONI PER L'UT ENTE 


PRINT TAB( 8)'****«************#************' 

: PRINT TAB( 10)'SIMULAZIONE 01 UN EQUILIBRIO' 

; PRINT TAB( 8)'»************«*«************«*': PRINT : PRINT 
PRINT : PRINT TAB< 8)'DAUID ROBSON. TOUSON HIGH': PRINT TAB< 8)'SCH00 
L, TOUSON, MD.21204': PRINT : PRINT 'TRADUZIONE DI G.MORTA E D. PERUGINI* 

2342 VTAB 22: PRINT 'PREMI LO SPAZIO PER CONTINUARE': GET SS: IF SI ( > CHR* (32) 
THEN GOTO 2342 
HOME 

PRINT : PRINT : PRINT 'NELLA REAZIONE QUI SIMULATA I REATTIVI SONO:' 

PRINT 

PRINT ' ACIDO ACETICO ♦ ETM0L0+ 

PRINT : PRINT ' I PRODOTTI SONO:': PRINT : PRINT ' ACQUA ♦ ACETATO DI E 
TUE' 

PRINT : PRINT : PRINT 'L'ACQUA SARA' TRASCURATA PERCHE' FACENDO LA REAZI 
ONE IN SOLUZIONE ACQUOSALA SUA CONCENTRAZIONE NON CAMBIA IN M0D0APPREZZAB1LE* 
VTAB 23: PRINT 'PREMI LO SPAZIO PER CONTINUARE': GET SI: 1F S* < ) CHR$ (32) 
THEN 2410: HOME 
HOME 

PRINT : PRINT : PRINT 'QUWDQ SI ESEGUE QUESTA REAZIONE IN LABORATORIO,ESSA 
PROCEDE LENTAMENTE E RICHIEDE DIVERSE ORE PER RAGGIUNGERE L’EQULIBRIO.' 
PRINT : PRINT 'IN QUESTO PROGR/mi LA REAZIONE SIMULATA PROCEDE CIRCA 120 VOLTE 
PIU' VELOCE. LE CONCENTRAZIONI DEI PRODOTTI SARtWO MOSTRATE AD INTERVALLI 
CHE TU POTRAI SPECIFICARE.' 

VTAB 23: PRINT 'PREMI LO SPAZIO PER CONTINUARE': GET SS: IF S$ < > CHRS (32) 
THEN 2430: HOME 
HOME 
TEXT 
HOME 

PRINT : PRINT 'VUOI CHE I VALORI DI CONCENTRAZIONE 
I GRAFICAMENTE 7 ' 

PRINT : .INPUT 'SE LI VUOI STAMPATI SCRIVI 
RIVI 'G\... E POI 'RETURN'':0S 
IF 0$ < > *G* AND 0$ < > 'P* THEN GOTO 2515 
PRINT 


2350 

2390 

2392 

2395 

2397 

2400 

2410 

2415 

2420 

2425 


2430 

2435 

2500 

2505 

2510 

2515 

2517 

2518 


S1M0 STAMPATI 0 M0STRAT 
SE LI VUOI IN GRAFICO SC 


2520 

2525 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2601 

2602 

2605 

2610 

2620 

2630 

2750 

2760 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

3000 

3010 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 


INPUT 'SCRIVI IL NUMERO DI MINUTI PER OGNI 
IF PM < 0 OR PM > 10 THEN GOTO 2520 
IF PM = INT (PM) THEN GOTO 2550 
PRINT : PRINT 'SOLO NUMERI INTERI PER IL TEMPO 11 
PRINT : INPUT 'IMMETTI IL VALORE INIZIALE DELLA 
LL'ACIDO ACETIC0(DA 0 A 3)’;A 
IF A < 0 OR A > 3 THEN GOTO 2550 
PRINT : INPUT 'INIETTI IL VALORE INIZIALE DELLA 
0L0 (DA 0 A 3) '; B 
IF B < 0 OR B ) 3 THEN GOTO 2570 
PRINT : INPUT 'IMMETTI IL VALORE INIZIALE DELLA 
□.'ACETATO DI ETILE (DA 0 A 3)';C 
IF C < 0 OR C > 3 THEN GOTO 2590 
IF A = 0 AND B = 0 AND C = 0 THEN GOSUB 4600 
IF A = 0 AND C = 0 OR B = 0 ANO C = 0 THEN GOSUB 4600 
HOME 
Q = A 
R = B 
S = C 


REM VALORI DELLE COSTANTI DI VELOCITA' DIRETTA E INVERSA: 
KF = 2.38E - 4 
KR = 8.15E - 5 


CICLO (DA 1 A 10 MINUTI)'jPM 


PRINT : GOTO 2520 

CONCENTRAZIONE MOLARE DE 


CONCENTRAZIONE DELL'ETAN 


CONCENTRAZIONE MOLARE DE 


REM ACCELERAZIONE = 1 


KF = KF * 10 
KR = KR * 10 


REM RIDUCE PS PER IL FATTORE DI ACCELERAZIONE DEL TEMPO 
PS = PM » 60 / 10 

REM FATTORE DI ACCELERAZIONE USATO MCHE ALLA LINEA 810 


T = 0 
COUNT = 0 

ÌF OS = 'P* THEN GOTO 3150 
HGR 

REM CONTORNO DEL GRAFICO DI EQUILIBRIO 
REM STABILISCE IL COLORE DEL CONTORNO 
HC0L0R= 6 

HPLOT 0,0 T0 279,0 T0 279,159 TO 0,159 T0 0,0 
HPL0T 1,1 T0 278.1 T0 278,158 T0 1,158 TO 1,1 
HPLOT 1,101 TO 278,101 
REM CALIBRA L'ASSE Y 

HPLOT 1,21 T0 8,21: HPLOT 271,21 T0 276,21: HPLOT 1,41 TO 8,41: HPLOT 271,41 TO 
278.41: HPLOT 1,61 TO 8,61: HPLOT 271,61 TO 278,61: HPLOT 1,81 T0 8,81: HPLOT 
271,81 TO 278,61 


■ 
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Il progetto Seraphim è sorto negli Stati Uniti allo scopo di diffondere e 
stimolare l’impiego del computer nell’insegnamento della chimica. Nel proget¬ 
to si è inserita la Divisione di Didattica Chimica, che ne cura la distribuzione 
nelle scuole italiane interessate. L’intero software, costituito da 44 programmi 
didattici e da 10 utility, è scritto per calcolatori Apple. L’iniziativa non si 
prefigge scopi di lucro: i dischetti, contenenti diversi programmi, sono in 
vendita a lire 7.000 + IVA ciascuno. Per ogni ulteriore informazione sul 
progetto e sulle modalità di acquisto dei dischetti rivolgersi al prof. Giuseppe 
Innorta. Istituto Chimico "Ciamician", via Selmi 2, 40126 Bologna. Iprogram¬ 
mi pubblicati da Applicando sono invece aggiunti nei dischetti del Disk Servi¬ 
ce, senza aggiunta di prezzo. 


equilibrio sfruttando la capacità di 
comprensione del tempo del calcola¬ 
tore. In particolare viene simulata la 
reazione tra acido acetico ed etanolo 
con formazione di acetato di etile e 
acqua; si tratta di una reazione abba¬ 
stanza semplice del tipo: 

FI A + B C 

Per la quale vengono assunte le se¬ 
guenti leggi cinetiche: 

F2 V = 2.38 * IO 4 [A] [B] 
per la reazione diretta 
F3 V = 8.15 * IO 5 [C] 
per la reazione inversa 

Poiché la reazione avviene in am¬ 
biente acquoso, la formazione di ac¬ 
qua può essere trascurata. 

Sebbene il modello cinetico sia mol¬ 
to semplificato, la simulazione con¬ 
sente di ricercare quelle regolarità ma¬ 
tematiche fra le concentrazioni di 
equilibrio che facilitano la compren¬ 
sione del significato di una costante di 
equilibrio. 

Il listato 

2020-2600 Vengono visualizzate le 
informazioni inerenti alla simulazione 
e vengono accettati, per mezzo di in¬ 
put controllati, i dati d’ingresso. Pote¬ 
te scegliere il grado di concentrazione 
iniziale delle tre sostanze, specifican¬ 
do un valore tra 0 e 3, decidere se 


avere una rapprentazione grafica della 
reazione o soltanto i valori numerici e 
infine decidere il tempo tra una rivela¬ 
zione e la successiva. 

2605—3000 Vengono stabiliti i valori 
delle due costanti di velocità e il fatto¬ 
re di accelerazione della reazione. 
3000-3200 Viene disegnato il contor¬ 
no del grafico e visualizzati valori nu¬ 
merici delle concentrazioni. 
3500—3950 Questo ciclo calcola, in ba¬ 
se alle equazioni cinetiche, la variazio¬ 
ne di concentrazione di ogni sostanza 
nell’unità di tempo. Tale calcolo viene 
ripetuto per ogni rilevamento fino al 
raggiungimento della condizione di 
equilibrio. 

3960-4296 Vengono eseguite le ap¬ 
prossimazioni dei valori calcolati e se¬ 
lezionata la routine di output scelta 
all’inizio dall’utente. 


4300-4480 Realizza l’aggiornamento 
della rappresentazione grafica della 
reazione. 

4500 II calcolatore decide se è stata 
raggiunta la situazione di equilibrio, in 
caso contrario ripete il ciclo di calcolo 
per un altro rilevamento. 

Per ottenere l’output su stampante è 
sufficiente aggiungere queste due li¬ 
nee: 

3165 PR#1 (se la stampante è collega¬ 
ta alla slot 1) 

4528 PR#0 

La rappresentazione grafica è suffi¬ 
cientemente adatta per visualizzare il 
raggiungimento della situazione di 
equilibrio, naturalmente potete sem¬ 
pre perfezionare il programma esten¬ 
dendo così notevolmente l'interesse 
didattico delPesperimento. 

Giuseppe Innorta 


3150 IF 01 = "G’ THEN GOTO 4240 
3155 REM TITOLI 
3160 HOME 

3170 PR1NT : PRINT TAB( 3)'TENP0' TA8( 19)■CONCENTRAZIONE 1 
3180 PRINT 1 (MINUTI)' TAB< 17)'(M0LI PER LITRO)' 

3188 PRINT 

3190 PRINT TA8< 12)'ACID0' TAB( 21)'ETAN0L0' TAB( 32) , ET1LE* 

3192 PRINT TAB( 12)'ACETIC0' TAB( 32)'ACETAT0' 

3200 PRINT : PRINT TAB( 4)T: TAB< 14)A; TAB( 24)B; TAB( 34)C 
3500 REM INIZIO DEL CICLO Di CALCOLO 
3510 FOR I = 1 TO PS 
3520 : 

3550 REM ...CALCOLA LA DIMINUZIONE DEI REAGENTI 
3560 RDEC = A * B * KF 
3570 ADEC = RDEC 
3575 BDEC = RDEC 

3700 REM ...CALCOLA LA DIMINUZIONE DEL PRODOTTO 
3710 CDEC = C » KR 
3720 : 

3730 REM ...CALCOLA L'AUMENTO DEI REAGENTI 
3740 AINC = CDEC 
3750 B1NC = CDEC 
3760 : 

3770 REM ...CALCOLA L'AUMENTO DEL PRODOTTO 
3780 CINC = RDEC 
3790 : 

3800 REM ...CALCOLA LE NUOVE CONCENTRAZIONI: 

3810 A = A + AINC - ADEC 

3820 B = B ♦ BINC - BDEC 

3830 C = C ♦ CINC - CDEC 

3840 : 

3850 : 

3860 RF = RDEC 
3870 RR = CDEC 
3880 : 

3900 : 

3930 REM AGGIUNGE IL FATTORE DI ACCELERAZIONE DEL TEMPO 
3940 T = T ♦ 10 
3950 NEXT 1 
3960 TM = T / 60 

3970 CAPPR = < INT (C » 1000)) / 1000 

3R80 BAPPR = ( INT (B * 1000)) / 1000 

3990 AAPPR = ( INT (A * 1000)) / 1000 

4210 1F 0$ = 'G* THEN GOTO 4240 

4220 PRINT 

4230 PRINT TAB< 4)TM:: TA8< 14X INT (A * 1000)) / 1000; TAB( 24X INT <B * 1000)) 

/ 1000; TAB( 34)CAPPR 
4235 1F W = 'P* THEN GOTO 4500 

4240 HOME : VTAB 21 

4241 PRINT TAB< 2)'A.ACETICO"; TAB< 13)'ETM0L0'i TAB( 24)"ETILE ACET.'; TAB< 37)"M 
IN.' 


4243 P0KE 34,21 

4246 IF COUNt = 0 THEN PRINT TAB< 6);Q; TAB( 14):R; TAB( 28);S; TAB( 38) ;"0" 

4247 COUNT = COUNT ♦ 1: IF COUNT = 1 THEN GOTO 43Ù0 

4249 VTAB 22 

4250 PRINT TAB( 6)AAPPR; TAB< 14)BAPPR; TAB< 28)CAPPR; TAB< 38)TM 
4294 : 

4296 : 

4300 REM DISEGNA LE SBARRE 

4305 REM FATTORE DI SCALA PER LE SBARRE = 20 

4310 : 

4311 : 

4320 REM DISEGNA LA SBARRA A 

dqifl urni flP= d 

4340 HPL0T 61.101 T0 61.AY T0 35,AY T0 35,101 
4350 AY = 101 - < INT (A * 20)) 

4360 HC0L0R= 1 

4370 HPL0T 61,101 T0 61,AY T0 35.AY T0 35,101 

4371 : 

4372 : 

4380 REM DISEGNA LA SBARRA B 

4385 HC0L0R= 4 

4390 HPL0T 116,101 T0 116,BY T0 90, BY T0 90,101 
4400 BY = 101 - ( INT (B * 21)) 

4410 HC0L0R= 2 

4420 HPL0T 116,101 T0 1 1 6 ,BY T0 90,BY T0 90,101 
4424 : 

4426 : 

4430 REM DISEGNA LA SBARRA C 
4440 HC0L0R= 4 

4450 HPL0T 211,101 T0 211, CY TO 185, CY T0 185,101 
4460 CY = 101 - ( INT (C * 20)) 

4470 HCQL0R= 5 

4480 HPL0T 211,101 T0 211.CY T0 185,CY TO 185,101 

4485 IF COUNT ) 1 THEN GÓT0 4499 

4486 VTAB 24: PRINT 'PREMI LO SPAZIO PER CONTINUARE' 

4487 GET SI: IF S* < ) CHW (32) THEN GOTO 4487 

4499 VTAB 24: IF CAPPR = 0 THEN GOTO 3500 

4500 IF CAPPR = C2APPR THEN GOTO 4525 
4510 C2APPR = CAPPR 

4520 GOTO 3500 

4525 POKE 34,22: PRINT " 

4526 VTAB 24: PRINT • — EQUILIBRIO 

4527 FOR PAUSE = 1 T0 3000: NEXT PAUSE 

4530 VTAB 24: PRINT “R' PER RIPETERE..'Q' PER SMETTERE* 

4535 GET RI 

4540 IF RI < > "R 1 AND RI < ) 'Q' THEN GOTO 4535 

4543 COUNT = 0: POKE 34,0 

4544 IF RI = *Q' THEN END 

4545 RUN 2435 

4600 HOME : IWERSE : FLASH : PRINT 'MANCA UN REATTIVO ESSENZIALE': PRINT 'PROVA 01 
NUOVO': N0RMAL : FOR I = 1 T0 3000: NE*T : HOME : GOTO 2550 
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pratica 


Inizia da questo numero una nuova rubrica che ha lo scopo di aiutare i lettori a utilizzare meglio il loro computer, a 
capire quali periferiche o quale software possono essere veramente utili nel risolvere i loro problemi specifici, 
soprattutto nel campo aziendale. La stesura di questa rubrica è affidata ad Alfonso Scopetta, 32 anni, laureato in 
scienze fisiche. Scopetta, product manager per la linea Apple presso la New Line, ha occupato per quattro anni la 
cattedra di fisica applicata e informatica presso l’Istituto professionale sperimentale di Bollate (MI) ed è stato 
consulente tecnico e responsabile delle vendite presso alcuni rivenditori autorizzati Apple. Quesiti e richieste 
d’informazioni vanno indirizzati ad Applicando, rubrica Applipratica, Corso Monforte 39, 20122 Milano. 


Fuori dal limbo 

Dopo tanti sussurri e tanti "si dice..ecco le sospira¬ 
te novità in casa Apple. Non staremo a elencarne le 
caratteristiche (che peraltro sono già state ampiamente 
sviscerate nel numero di settembre e completate nel- 
l’Applicosa di questo numero), ma cercheremo di co¬ 
gliere gli aspetti tecnici in relazione a sviluppi e benefici 
che potrete trarne. 

Le novità più grosse riguardano per la maggior parte 
il settore hardware, in quanto potenziano notevolmen¬ 
te le due maggiori linee di prodotti: Macintosh e Apple 
//. Tuttavia questa "grande abbuffata", se da un lato fa 
felice chi già possiede una di queste macchine, d’altro 
canto può mettere in crisi chi vorrebbe acquistarne 
una. Vediamo quali potrebbero essere le configurazio¬ 
ni ottimali, soprattutto per chi utilizza Apple per il 
lavoro. 

Per quanto riguarda il Mac sono stati presentati di¬ 
schi rigidi e rete. Tra i modelli di disco rigido che sono 
disponibili, merita uno sguardo particolare il Sunol da 
20 Mbyte, soprattutto per la sua capacità di collega¬ 
mento in rete Apple Talk (AT). Un altro disco rigido di 
tutto rispetto è quello da 20 Mbyte prodotto e distribui¬ 
to dalla stessa Apple, che tuttavia per ora non è collega¬ 
bile alla rete AT. 

È ovvio che l’hard—disk Sunol, distribuito dalla Ce- 
sac nei modelli da 20,40,60 e 110 Mbyte, è indirizzato a 
una grande azienda che voglia strutturarsi con una rete 
di svariati Macintosh collegati tra loro e che possano 
condividere varie periferiche, come questo hard—disk, 
una LaserWriter, eccetera. L’hard—disk da 20 Mbyte 
della Apple, invece, è rivolto principalmente al singolo 
professionista o alla piccola-media azienda che in tal 
modo può memorizzare grandi volumi di dati. Chissà 
che in un futuro non troppo lontano possa essere colle¬ 


gabile alla rete AT! 

Per quanto riguarda invece la linea Apple // le novità 
sono estremamente più importanti, perché fanno usci¬ 
re questi personal dal "limbo hobbistico evoluto" per 
proiettarli verso una fascia molto più professionale dal 
punto di vista tecnologico e di utilizzo. 

Innanzitutto con i nuovi drive da 800 Kbyte final¬ 
mente si potranno utilizzare programmi gestionali (ti¬ 
picamente contabilità, gestioni aziendali, paghe e sti¬ 
pendi...) molto più ampi e flessibili : infatti se prima con 
un buon programma di contabilità si potevano gestire 
500 clienti/fornitori, 300 voci del piano dei conti e 1.200 
movimenti contabili, con due dischetti da 5" e 1/4 per un 
totale di 320 Kbyte, ora si potrà strutturare una conta¬ 
bilità quattro volte maggiore sfruttando due drive da 3" 
e 1/2 per un totale di 1,6 Mbyte. 

L'altra grossa novità per la serie //e è la scheda da 
256K ram che può essere espansa fino a 1 Mbyte; anche 
questa scheda favorirà lo sviluppo di buon software, e si 
spera a basso costo, per un utilizzo estremamente pro¬ 
fessionale di questo cavallo di battaglia della Apple 
Computer. 

Un’ultima parola sulla nuova stampante Apple Ima- 
geWriter//. Questa periferica si presenta come un nuo¬ 
vo gioiello per le sue caratteristiche, infatti riunisce le 
già pregevoli performance della "vecchia" ImageWriter 
ad alcune migliorìe: innanzitutto è possibile utilizzare 
questa periferica in una rete AT, quindi può diventare 
un supporto notevole per chi vuole avere più Mac in 
rete ma non può o non vuole avere una LaserWriter, 
oppure vuole affiancare a quest’ultima una stampante 
ad aghi tradizionale; inoltre un ottimo optional per 
questa stampante è un efficiente inseritore automatico 
di fogli singoli a basso costo. Queste caratteristiche, 
unite a un carattere di stampa estremamente elegante, 
fanno della nuova ImageWriter // una periferica molto 
professionale a basso costo. Alfonso Scopetta 


Dall’se alla zeta per Apple 

• Disk drive da 640 K formattati per sistemi operativi DOS 3.3*, ProDos*, Pascal*, CP/M* 

• Controller per due disk drives da 640 K o da 143 K 

• AM 10 buffer programmabile (spooler) da 64 a 256 K 

• Interfaccia Macintosh*/Apple Ile* - stampante grafica standard Centronics* 

• Espansioni di memoria da 128 K RAM, gestiti con disco virtuale 

• marchi registrati 

In vendita presso i migliori ] /S\@@[iuO s.pa 

computer Shop Lmé3 Buia/Ud tei. 0432-961014 Tlx 450608 
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Freccette 
senza paddle 

Ho 18 anni e frequento 
l’ultimo anno del liceo scien¬ 
tifico. Possiedo da due anni 
circa un Apple//e ma da un 
po’ di tempo avevo perso 
l’entusiasmo iniziale poiché 
non avevo una guida. Gra¬ 
zie alla vostra rivista ho ri¬ 
trovato quell’entusiasmo 
iniziale. Vi ringrazio viva¬ 
mente e, facendovi i miei 
complimenti, vi chiedo un 
piccolo favore. Ho copiato il 
listato del gioco "Freccette" 
pubblicato su Applicando 
n.5, ma non ho le paddle: vi 
prego quindi, se vi è possibi¬ 
le, di inviarmi una modifica 
o di pubblicare, almeno, su 
un prossimo numero di Ap¬ 
plicando questa mia richie¬ 
sta. In attesa di una vostra 
risposta vi ringrazio viva¬ 
mente e vi faccio i miei mi¬ 
gliori auguri. 

Giambattista Giordano 

S. Arcangelo (PZ) 

Il programma indicato, 
essendo stato scritto per Ap¬ 
ple II, utilizza le paddle solo 
per poter azionare i pulsanti. 
Forse non tutti sanno che 
nell'Apple!le e Ile i tasti Mela 
vuota e Mela piena corri¬ 
spondono esattamente ai 
pulsanti Paddle I e Paddle 2. 
Quindi il programma fun¬ 
ziona ugualmente senza l'u¬ 
so delle paddle e senza modi¬ 
fiche. Occorre solo usare i 
tasti sopra indicati. 

Per farli 
comunicare 

Ho letto su BIT del di¬ 
cembre 1984 di una interfac¬ 
cia di comunicazione Ap¬ 
ple—Commodore 64: a che 
cosa serve di preciso? È pos¬ 
sibile far girare sull’Apple i 
programmi (sia in Basic sia 
in linguaggio macchina) del 
Commodore 64 senza dover 
correggere i listati? 

Roberto Nacci 

S. Casciani di Cascina (Pisa) 

Un'interfaccia di comuni¬ 
cazione, come dice la parola 
stessa, serve per comunicare 


con altri computer sempre 
che siano forniti di un’inter¬ 
faccia con le stesse funzioni e 
di un programma di gestione 
della stessa. Si possono tra¬ 
sferire sia listati di program¬ 
mi sia file di testo. Purtroppo 
l’Apple e il Commodore non 
sono totalmente compatibili 
e i listati dei programmi van¬ 
no senz’altro modificati in 
tutto o in parte affinché pos¬ 
sano girare su di un compu¬ 
ter diverso da quello per il 
quale sono stati progettati. 

Un Golf 
sbagliato 

Dall’ultimo numero ho 
copiato il listato del gioco 
del Golf, ma il computer mi 
dà errore del tipo 53 sulla 
linea 1970. Ho rivisto il lista¬ 
to e non ho trovato errori 
fino alla GOSUB che va a 
disegnare i parametri della 
figura; spero inoltre di non 
aver fatto errori nella copia¬ 
tura dei listati in linguaggio 
macchina, anche se secondo 
me non c’entrano un gran 
che con il mio errore. Vi 
chiedo inoltre cortesemente 
di spiegare come si fa a lista¬ 
re un programma in linguag¬ 
gio macchina per controllar¬ 
lo anche dopo essere tornati 
in BASIC, perché per me è 
insufficiente quanto scritto 
su PER CHI COMINCIA. 
Vi ringrazio per le risposte 
complimentandomi per la 
rivista veramente interes¬ 
sante, soprattutto per me 
che sono agli inizi. 

Domenico Ferretti 

Pescara 

Il programma Golf si 
compone di due listati e lei 
non ha indicato a quale si 
riferisce l’errore incontrato. 
Il suggerimento che le pos¬ 
siamo dare è quello di ricon¬ 
trollare attentamente i due li¬ 
stati in Basic e quelli in lin¬ 
guaggio macchina perché il 
programma funziona benis¬ 
simo e, come abbiamo spes¬ 
so spiegato, i listati pubblica¬ 
ti sono la copia fotografica 
del listato originale. 

Per rivedere un listato 
scritto in linguaggio macchi¬ 


na si batte CALE—151 se¬ 
guito da RETURN, per an¬ 
dare in MONITOR. Si scri¬ 
ve la locazione di partenza 
del listato seguita da un pun¬ 
to e dalla locazione finale del 
listato. Battendo RETURN 
si vedrà scorrere sul video il 
listato in linguaggio macchi¬ 
na e si potrà bloccarlo con 
CTRL—S come con i listati 
in Basic. Se invece si vuole 
vedere passo passo il listato 
si batte solo la locazione di 
partenza: a ogni RETURN 
verrà visualizzata una riga 
per volta. 

Writer 
sul //c 

Sono un vostro abbonato 
e ho acquistato un Apple//c 
in sostituzione di un Ile, ma 
mi trovo attualmente in dif¬ 
ficoltà perché, avendo da 
anni usato soprattutto il pro¬ 
gramma Apple Writer per il 
//e, ho dovuto constatare la 
scarsa compatibilità di quel 
programma sul nuovo com¬ 
puter. 

Ho trovato in commercio 
un programmino di conver¬ 
sione, ma funziona male e 
solo in parte. 

Ignazio Mastrapasqua 

Roma 

Nella rubrica Applihelp 
del numero di maggio a pag. 
122 abbiamo pubblicato un 
programmino di conversio¬ 
ne per Apple Writer che per¬ 
mette anche di sentire la posi¬ 
zione del commutatore 
80140. 

New York 

Sono un vostro abbonato 
e lavoro con un MAC 512K 
al quale è collegata una Ima- 
ge Writer 80 colonne; spero 
inoltre di potermi procurare 
al più presto il secondo Dri¬ 
ve; provengo da un sistema 
decisamente inferiore e ho 
da sottoporvi alcune que- 
stioncine: 

1. So usare la nuova utility 
Font Mover ma non riesco 
ad abilitare il carattere New 
York nei formati 20 e 36 nel¬ 
l’applicazione Mac Write. 
Nello Speciale Macintosh 


del numero di marzo di BIT 
ho letto che i formati mag¬ 
giori sono appannaggio di 
Mac Paint (e di questo chie¬ 
do conferma), ma lo stesso 
articolo non spiega l’impos¬ 
sibilità di usare il formato 
20, visto che il 24 punti è 
perfettamente agibile. 

2. Esiste sul mercato un pro¬ 
gramma di verifica del siste¬ 
ma operativo e delle RAM, 
simile, per esempio, al di¬ 
screto Verify Ram dello 
Spectrum Sinclair? 

3. E possibile installare fa¬ 
cilmente ed efficacemente 
un buffer di stampa 
MAC—compatibile per evi¬ 
tare attese a video "inchio¬ 
dato"? 

Spero in una vostra rispo¬ 
sta, nel frattempo cordialis¬ 
simi saluti 

Giuseppe Castelli 

Torino 

Quello che ha letto su BIT 
è esatto. Il formato dei carat¬ 
teri è quello disponibile sul 
programma Mac Write e non 
è possibile cambiarne la mi¬ 
sura. 

Per le altre domande non 
ci risulta al momento che esi¬ 
sta sul mercato un program¬ 
ma per la verifica delle RAM 
del Mac e per installare un 
buffer di stampa che permet¬ 
ta di lavorare mentre il com¬ 
puter stampa. 

Il cappelletto 

Sono un vostro abbonato 
e devo chiedervi un chiari¬ 
mento sul programma 
GOLF pubblicato sul nume¬ 
ro 14 di Applicando. Alla ri¬ 
ga 2150 vi è un segno che 
non sono riuscito a trovare 
sulla tastiera del mio Apple 
Ile. Vi sarei molto grato se 
poteste dirmi qual è il tasto 
corrispondente. 

Maurizio Barberis 

Il segno incriminato è il 
simbolo usato in informatica 
per indicare l’elevazione a 
potenza. (Per esempio 2 ele¬ 
vato alla seconda si scrive 
2a2J. Sul Ile è indicato sul 
tasto della ì (i accentata), alla 
destra del tasto P, e si batte 
con il tasto SHIFT. 
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Girano sul //c? 

Sono un abbonato e desi¬ 
derei sapere se posso far gi¬ 
rare i seguenti programmi 
del "Disk Service" con il mio 
computer //c: AP7—N12, 
APIO —N14, AP9 —N15, 
AP15-N31. 

Vorrei inoltre sapere do¬ 
ve posso trovare alcuni pro¬ 
grammi di Bits & Bytes 
(Utility City e Mechanic) e 
se sono compatibili con il Ile. 

Carlo Massimini 

Dobbiaco 

Tutti i programmi in Basic 
fatti per la serie II girano si¬ 
curamente anche sul Ile. I 
problemi si incontrano solo 
con alcuni programmi scritti 
in linguaggio macchina. 
Quindi i programmi com¬ 
presi nei dischetti sopra indi¬ 
cati girano sul Ile. 

Iprogrammi di Bits & By¬ 
tes sono in vendita presso i 
Computer Shop e per sapere 
se sono compatibili con il Ile 
occorre consultare il libretto 
istruzioni allegato. 

I caratteri 
del topino 

Sono un vostro accanito 
lettore in possesso da circa 4 
mesi di un Apple//c e vorrei 
porvi alcune domande. 

1. Sul libro II personal com¬ 
puter Apptel/c di Danny 
Goodman, a p.54, si legge 
che quando si usa il "text 
mode" a 80 colonne sul Ile si 
possono usare anche 32 ca¬ 
ratteri grafici (caratteri del 
Mouse). Si precisa inoltre 
che per poter usare tali ca¬ 
ratteri non è necessario di¬ 
sporre di un Mouse ; ma non 
si dice come! È possibile sa¬ 
pere quale procedura segui¬ 
re per poter usare tali carat¬ 
teri? 

2. Sul n.12-13 di APPLI¬ 
CANDO, nella rubrica AP- 
PLETTERE avete indicato 
come attivare le 80 colonne 
nell'Apple//c. Non mi risul¬ 
ta si debba battere PR a , co¬ 
me da voi asserito, ma bensì 
PR£3 (in modo diretto o in¬ 
diretto) oppure ESC 8 (solo 
in modo diretto). 


3. Sempre su APPLICAN¬ 
DO n.12—13, rubrica AP- 
PLETTERE, fornite le 
istruzioni necessarie per da¬ 
tare i programmi salvati. Ho 
provato e con mia grande 
gioia è risultato tutto OK 
per quanto riguarda la data. 
E l’ora? Si può inoltre sfrut¬ 
tare la data così pokerata in 
memoria per altri program¬ 
mi? Infine tengo a precisare 
che con il computer Ap- 
ple//c viene fornito un di¬ 
schetto di UTILITIES - 
ProDOS 1.0.2 che, come ho 
potuto constatare, grazie ad 
APPLICANDO n.7, non è 
uguale al floppy USER. 
DISK (tra l’altro manca la 
possibilità di introdurre la 
data). 

4. Potete indicarmi un libro, 
possibilmente in italiano, 
dove apprendere l’uso del 
ProDOS e i suoi comandi? 
Ho scoperto a mie spese che 
la gestione dei file su di¬ 
schetto non è uguale a quel¬ 
la operata dal DOS 3.3, ma 
non sono riuscito a capire 
totalmente le differenze 
(che comunque dovrebbero 
essere minime). Compli¬ 
menti per la vostra eccezio¬ 
nale rivista. 

Pier Luigi Galastri 

Firenze 

Nella rubrica Applihelp 
del n.17 a pag.88 troverà 
un’esauriente spiegazione 
dell’uso dei caratteri del 
mouse. 

Per l’attivazione delle 80 
colonne è stato commesso un 
errore di interpretazione del 
carattere di comando da par¬ 
te della fotocomposizione: 
ringraziamo e accettiamo 
ben volentieri l’osservazio¬ 
ne.L’inserimento dell’ora nel 
catalog ProDos è stata spie¬ 
gata nella rubrica Applihelp 
del n.16 a pag.125. Purtrop¬ 
po questo sistema è utilizza¬ 
bile soltanto in ProDos. 

Per il libro sul ProDos 
consigliamo di leggere la pa¬ 
gina delle recensioni librarie 
dove pubblichiamo l’elenco 
dei libri di nuova pubblica¬ 
zione che ci vengono inviati 
in visione. Legga anche la 
rubrica Applihelp dove sicu¬ 
ramente troverà un aiuto. 


é MERCATINO 


• Cerco con urgenza manuale o 
traduzione dattiloscritta in ita¬ 
liano del manuale Visidex per 
Apple II. Oppure un aiuto per 
apprenderne in pieno il funzio¬ 
namento. Dori. Giuseppe Di 
Prima, Viale San Martino 301, 
Messina. Tel. 090/2931961. 

• Vendesi per Apple II dieci 
dischetti, oltre 50 programmi 
tra giochi e utility, tra cui: Az- 
tec, Castle Wolfense, Flight Si¬ 
mulator ecc. Massimo Novero, 
Via Michele Lessona 46/9, 
10145 Torino. 

• Vendo i fascicoli n. 1,2, 3 e 4 
di Applicando, in perfetto sta¬ 
to. Li spedirò al miglior offeren¬ 
te in contrassegno, più spese 
postali. Umberto Cordier, Ca¬ 
sellapostale 269,17100 Savona. 

• Vendo Apple //e (ancora in 
garanzia) + controller con disk 
drive + scheda 80 colonne e 
64K + software vario + joystick 
a lire 1.850.000. Scrivere o tele¬ 
fonare a Luca Fontana, via Ga¬ 
ribaldi 205/a, 20010 Cornaredo 
(MI). Tel. 02/9362410. 

• Per Apple Ile cerco urgente¬ 
mente programma alimentare 
per la formulazione e l’ottimiz¬ 
zazione della razione alimenta¬ 
re per bovini e/o suini. Gian¬ 
franco Valeri, Via Nazioale 25, 
46036 Revere (MN). 

• Occasionissima! Causa pas¬ 
saggio sistema superiore vendo 
in blocco Apple Ile, monitor To¬ 
no 12 pollici fosfori verdi, soft¬ 
ware valore oltre un milione e 
mezzo (AppleWork, Apple 
Writer, Multiplan, VisiCalc, 
Tool-Kit, Pascal, Forth, Fon- 
trix, Locksmith, Fly Simulator, 
giochi vari e altri, in tutto 30 
dischi), + 16 manuali (Apple¬ 
soft, Dos 3.3, Reference Ma- 
nual ecc.), assicurazione pagata 
per un anno, il tutto per solo 
3.000.000. Franco Braga, Via 
Pasteur 18, 24047 Treviglio 
(BG). Tel. 0363/49221. 

• Vendo Apple II compatibile 
completo delle schede (langua- 
ge, communication, parallela 
per stampante, 80 colonne, 
softeard Z80, disk controller) e 
con 1 drive 5, monitor 9, 40 di¬ 
schi con giochi, programmi e si¬ 
stemi operativi vari, completa 
libreria Apple, in blocco lire 
1.800.000. Giuseppe Romano, 
Via della Pineta 22, 30174 Me¬ 
stre (VE). Telefonare ore serali 
allo 041/610503. 


DELLE MELE É 


• Cerco programmi che sfrutti¬ 
no la doppia risoluzione con 
preferenza ai package grafici, ai 
giochi e alle simulazioni. Scrive¬ 
re solo se seriamente interessa¬ 
ti. Cristina Vaitorta, Via Crespi 
44, 28100 Novara. 

• Vendo Apple //e, 128K, 80 
colonne, scheda z80, due drive, 
monitor Philips, stampante 
Centronics con interfaccia gra¬ 
fica, il tutto con manuali e im¬ 
balli. Inoltre vasta scelta di soft¬ 
ware e raccolta completa di Ap¬ 
plicando. Telefonare all’ora di 
cena a Carlo allo 02/2486140. 

• Acquisto numeri 1 e 2 di Ap¬ 
plicando. Prezzo da concorda¬ 
re. Diego Zorzetto, Via S. Ti¬ 
ziano, Trebaseleghe (PD). 

• Vendo le soluzioni delle più 
famose avventure, fra cui Zork 
(tutta la serie), Transilvania, 
Sherwood Forest, Dark Kristal, 
e molte altre. Per una lista gra¬ 
tuita o maggiori informazioni 
scrivere a: Massimo Gilardetti, 
Va Borsi 62, 28100 Novara. 

• Causa passaggio a Ibm vendo, 
in perfetta onestà, circa 700 
programmi, in blocco o singo¬ 
larmente, per Apple serie II. 
Cristina Vaitorta, Via Crespi 
44, 28100 Novara. 

• Apple II Plus 64K vendo, ori¬ 
ginale, perfetto con scheda lan- 
guage Ì6K, scheda controller 
per due drive, drive originale e 
monitor 12 F.V. a lire 
1.320.000. Super occasione. 
Regalo tastierino numerico e 10 
programmi. Telefonare a Ro¬ 
berto Rossi 02/6070236. 

• Causa passaggio a sistema su¬ 
periore vendo grande quantità 
di software a basso costo. Pro¬ 
grammi come Apple Works, Pa¬ 
scal 2.0, lane, Fortran, Ap- 
pleWriter. Giochi come: Sax- 
xon, Congo Bongo, Microbe, 
Sherwood Forest, Masquerade 
e molti altri. Massimo Savazzi, 
Via Carlo Osma 2, 20151 Mila¬ 
no. Tel. 02/3087201. 

• Causa cambio sistema vendo 
Apple //e, marzo 85, usato po¬ 
chissimo, duodisk, scheda 
128K, 80 colonne, Apple mouse 
// con programma MousePaint, 
plotter Roland Dxy-880 (nuo¬ 
vo), sistema Cad/Cam Robo- 
graph 1000, a lire 6.500.000 
trattabili. Telefonare dopo le 
ore 20 a Eugenio Cassani allo 
02/585341. 
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a^ffihelp 


Programmi 

in linguaggio macchina 

A volte può essere necessario conoscere la lunghezza 
di un programma o di una routine in linguaggio macchi¬ 
na per poterla analizzare per intero o per risalvare su 
disco dopo la modifica qualche parametro. 

La locazione di partenza e la lunghezza dell’ultimo 
programma caricato in memoria sono memorizzate, 
rispettivamente, nelle locazioni $AA72-$AA73 e 
$AA61-$AA62 con l’indicazione del byte basso nella 
prima locazione e byte alto nella seconda (per esempio 
$AA72=5B - $AA73 = 95; l’inizio del programma è 
S95B5). 

Per evitare di battere ogni volta le quattro locazioni 
di memoria su indicate, vi diamo una breve routine che 
vi permette, una volta installata in memoria con il 
comando BRUN, di ottenere i parametri dell’ultimo 
programma in linguaggio macchina caricato in memo¬ 
ria battendo, da MONITOR, CTRL—Y. 

Copiate il listato riportato qui sotto battendo 
CALL-151 per andare in MONITOR; quindi battete 
95B5: A9 B5 85 6F 85 73 A9 95 seguito da RETURN e 
via di seguito. Al termine salvatelo con BSAVE PA¬ 
RAMETRI LM,A$95B5,L$4B. 

Questa routine può essere utilmente inserita nell- 
’HELLO del dischetto con l’istruzione PRINT 
CHR$(4); "BRUN PARAMETRI LM" e averla così 
sempre pronta. Nel caso usiate un programma in Ap¬ 
plesoft Basic con l’utility in memoria, occorre proteg¬ 
gerla inserendo, all’inizio del vostro programma, l’i¬ 
struzione HIMEM:38325. 


Listato 

•95B5.95FF 








9585- A9 

R5 

85 







95B8- 6F 

85 

73 

A9 

95 

85 

70 

85 


95C0- 74 

A9 

CC 

8D 

F9 

03 

A9 

95 


95C8- 8D 

FA 

03 

60 

A9 

CI 

20 

ED 


95D0- FD 

A9 

A4 

20 

ED 

FD 

AD 

73 


9508- AA 

20 

DA 

FD 

AD 

72 

AA 

20 


95E0- DA 

FD 

A9 

AC 

20 

ED 

FD 

A9 


95E8- CC 

28 

ED 

FD 

A9 

A4 

20 

ED 


95F0- FD 

AD 

61 

AA 

20 

DA 

FD 

AD 


95F8- 60 

AA 

20 

DA 

FD 

4C 

69 

FF 


Listati di programmi 
in linguaggio macchina 

Per stampare un listato in linguaggio macchina è 
sufficiente, una volta attivata la stampante da MONI¬ 
TOR con PR#1, battere la locazione di partenza del 
programma (in esadecimale) seguita dal punto e dalla 
locazione di fine programma più uno (per esempio 
801.23FF). 

Se invece vogliamo listare su stampante il disassem¬ 
blato dello stesso programma, occorre sempre attivare 
la stampante da MONITOR, quindi battere la locazio¬ 
ne di partenza seguita dalla lettera Loda tante lettere L 
di seguito a seconda di quanto presumiamo sia lungo il 
listato che ci interessa. Avremo così la stampa di venti 
righe di listato, nel primo caso, oppure di un numero di 
righe uguale al prodotto del numero delle L per venti 
(questo è il numero delle righe corrispondenti a ogni 
lettera L). 


Per rendere la cosa più semplice e non avere una 
sfilata di L sulla stampante all’inizio del listato, esiste 
una scorciatoia: se inseriamo, con l’istruzione POKE, 
nelle locazioni di memoria 58 e 59 (in decimale) l’indi¬ 
rizzo di partenza del nostro listato (prima il byte basso, 
poi il byte alto), possiamo avere su monitor o su stam¬ 
pante venti righe di listato battendo CALL -418 oppu¬ 
re 256 linee di listato continue battendo CALL -413. 
Se il nostro programma è più lungo di 256 linee, al 
termine di esse dobbiamo battere solo CALL—413. Se 
abbiamo il listato sul video, possiamo sospendere lo 
SCROLL con CTRL-S come con i listati in Basic. 

Ecco un esempio. Se vogliamo listare il disassembla¬ 
to di un programma il linguaggio macchina che inizia 
alla locazione $3200 (in esadecimale), dobbiamo batte¬ 
re da Basic, senza andare in MONITOR, POKE 58,0: 
POKE 59,50: CALL—413 e avremo 256 linee di listato. 
Per calcolare il valore in decimale dell’indirizzo di par¬ 
tenza si divide il numero esadecimale in due gruppi di 
due cifre partendo da destra, quindi si moltiplica la 
cifra di sinistra di ciascun gruppo per 16 e si aggiunge la 
cifra di destra. Per esempio : in $320 = 03 20 = 3 32,32 è 
il byte basso e si scrive in POKE 58 mentre 3 è il byte 
alto e si scrive in POKE 59. 


Problemi con ImageWriter? 

Stampando con il Mac può capitare un testo interse¬ 
cato da linee bianche come indicato qui sotto nella foto. 
Subito penserete a un difetto del programma, o, peg¬ 
gio, del computer. Nulla di tutto questo; esse sono 
dovute alla testina della stampante bloccata in parte dai 
residui del nastro. Occorre togliere la cartuccia del 
nastro e smontare la testina dal suo alloggiamento co¬ 
me indicato a pag.29 dell’IMAGEWRITER USER’S 
MANU AL allegato alla stampante. Pulire la testina 
con uno straccetto imbevuto di alcol, rimontare la testi¬ 
na, rimontare la cartuccia nastro e ristampare il testo. 
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ImageWriter e //c 

I parametri di default dell’uscita seriale dell’Apple 
Ile per la stampante contemplano un A CAPO DOPO 
80 CARATTERI. Usando l’Apple Writer, se vogliamo 
stampare con il carattere piccolo (17 cpi), non è suffi¬ 
ciente spostare il margine destro per stampare più di 80 
caratteri di seguito, ma occorre inserire all’inizio del 
testo un CTRL I e il numero dei caratteri in questa 
sequenza: 

CRTL V CTRL I 132N CTRL V. 

Un’altra soluzione è quella di settare l’uscita stam¬ 
pante usando il disco UTILITY di SISTEMA all’accen¬ 
sione del computer. 
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Applicando è lieto di offrire ai propri lettori la possibilità 
di sottoscrivere un abbonamento a 5 o 10 dischetti, a scelta 
fra tutti quelli presentati nel Disk Service, a un prezzo 
eccezionalmente vantaggioso: 

100.000 lire per 5 dischetti 
180.000 lire per 10 dischetti 


In pratica pagherete, rispettivamente, 20.000 lire o 
16.000 lire a dischetto, Iva e spese di spedizione comprese 

qualunque sia il prezzo di vendita del singolo dischetto 


Basta che compiliate il tagliando qui sotto e lo inviate 
a Applicando, abbonamenti Disk Service, Corso Monforte 
3Q, 20122 Milano, unitamente a un assegno non trasferibile 
intestato a Editronica srl e al vostro primo ordine. Per 
ordinare i dischetti, adesso e successivamente, utilizzate 
il buono d'ordine pubblicato alla pagina seguente, 
specificando sempre che siete un abbonato del Disk Service. 
L'abbonamento non ha una scadenza, e quindi i 5 o 10 
dischetti potete ordinarli nell'arco di tempo che più vi 

aggrada. 


Sì, desidero sottoscrivere il seguente abbonamento: 
] 5 dischetti, per un importo di 100.000 lire 

1 1 10 dischetti, per un importo di 180.000 lire 


Nome_ 

Cognome 

Indirizzo 


CAP- Città_ PV 



Data_ Firma 




















Listati senza fatica 






Tutti i programmi di Applicando possono essere trascritti equindi salvati su 
dischetto. Ma la trascrizione è lenta e noiosa, e sbagliare fin troppo facile. 
Ecco perché Applicando offre, già pronti, i dischetti con i programmi 
sottoindicati: per ottenerli, è sufficiente inviarci il tagliando debitamente 
compilato. 


APPLICANDO 1 

AP1/I02 Profitti. In tempo reale l'analisi del break-even point, punto di 
pareggio, di una qualsiasi azienda. Calendario perpetuo. Dal 1582 in 
poi tutto quello che si può sapere sui giorni passati e futuri. I tronchi 
del tesoro. Una spericolata caccia al tesoro a nuoto, fra le insidie dì 
tronchi galleggianti. Lire 30.000 (abbonati 25.000). 

AP1/N03 Eliminatoredi Dos. Uno strumento per aumentare del 10% 
la capacità di un normale floppy disk. Orologio. Per trasformare 
l’Apple // in un orologio con rintocchi, allarme e lancetta dei secondi. 
Pronti puntare fuoco! Guardiano di un castello abbandonato, hai 25 
colpi da sparare contro gli intrusi. Lire 30.000 (abbonati 25.000). 

APPLICANDO 2 

AP2/IN04 Costi chilometrici auto. Un programma per calcolare e 
confrontare i costi di qualunque auto. Richiamafigure. Posizionare, 
ingrandire, ruotare, cambiar colore, aggiungere figure a quelle di una 
tavola Laser nello spazio. Battaglia a colpi di laser contro asteroidi e 
alieni per difendere la torretta spaziale. Lire 30.000 (abbonati 25.000). 

APPLICANDO 3 

AP3/IN05 Sistema base. Un data base modulare con tutte le caratteri¬ 
stiche essenziali per mettere ordine nei propri archivi. Etichette. Eti¬ 
chette spiritose e bizzarre, di lavoro o di ogni genere, stampate facil¬ 
mente e nel numero desiderato. Contratti. Con il WPL, il linguaggio di 
programmazione dell'Apple Writer, bastano cinque minuti per un do¬ 
cumento di pi’ pagine personalizzato. Gran catalogo. Una routine per 
avere il catalogo del dischetto su due colonne, 42 file per volta, e 
richiamarli con un solo tasto. Lire 30.000 (abbonati 25.000). 

AP3/A06 Equo canone (occorre Visicalc). In Visicalc un modello che 
permette, a inquilini o proprietari, l’esatto calcolo dell'equo canone. 
Lire 25.000 (abbonati 20.000). 


Sistema base - AP3/IN05 

Un data base modulare che ha 
il pregio di costare pochissimo 
e di offrire possibilità operative 
che nemmeno programmi 
di costo molto superiore hanno. 


Vi 


APPLICANDO 4 

AP4/N07 Lettura sprint (versione italiana e versione con frasi in 
inglese). Un reading improver per leggere di più a parità di tempo. 
Rompiquindici. Il piccolo rompicapo delle quindici pedine da ordinare 


nei sedici spazi a disposizione. Tastierino fantasma, una routine per 
avere a disposizione un tastierino numerico anche sull’Apple //, Routi¬ 
ne di input. Due subroutine, una per i dati numerici l'altra per gli 
alfanumerici, per il controllo dell’input. Lire 30.000 (abbonati 25.000). 

AP4/A09 Organo, violino, pianoforte (dischetto Pascal, occorre lan- 
guage card o Apple Ile o Ile). Ecco come, col Pascal, si riesce a 
simulare i tre strumenti attivando l'altoparlante dell'Apple da program¬ 
ma. Lire 30.000 (abbonati 25.000). 

APPLICANDO 5 

AP5/N08 Investor. In tempo reale il quadro esatto di come vanno i 
propri investimenti finanziari. Con cinque prospetti riepilogativi e 52 
periodi di quotazione, Investor è uno dei programmi più completi in 
questo settore e in assoluto il più economico. Lire 70.000 (abbonati 
60.000). 

AP5/N09 Agenda personale. Per ricordare ora per ora gli appunta¬ 
menti di un anno intero memorizzando fino a 15 appunti ogni giorno. 
Duello d’artiglieria. Vince chi sa calcolare meglio la velocità del 
vento, la gittata e l’elevazione della canna. Mele e freccette. Versione 
computerizzata del popolare gioco delle freccette che nulla toglie al 
gusto del far centro. Lire 30.000 (abbonati 25.000). 

Investor - AP5/N08 



iSÌmimmimiimniiiimifTiiiwniiiTtTTil 
Per seguire le azioni in Borsa, con 
grafici, media mobile a 15 e 52 
settimane, medie volume e prezzo. 


APPLICANDO 6 

AP6/N10 Obbligazioni/Bond Manager. Per avere un quadro comple¬ 
to e concreto dei rendimenti dei titoli a reddito fisso. PucMan/Nibbler. 
Versione in alta risoluzione per Apple del famoso videogame a getto¬ 
ne. Line finder. Letteralmente trova righe, questa utility permette di 
localizzare facilmente i segmenti di un programma. Lire 30.000 (abbo¬ 
nati 25.000). 

AP6/N11 Stress. In Pascal (occorre language card o Apple Ile o Ile). 
Per giocare, ma soprattutto per inventare giochi, il programma si pone 
in alternativa agli usuali videogame. Lire 55.000 (abbonati 45.000) 


✓ 


(Continua a pag. 96 ) 
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APPLICANDO 7 

AP7/N12 Apple pittore. Si possono realizzare sullo schermo capola¬ 
vori di pittura, ottenendo effetti speciali di grande efficacia. Ottovolan¬ 
te. Un tutorial per insegnare ai bambini a riconoscere i numeri che 
rimbalzano sullo schermo. Diskblock. Una routine che permette di 
evitare che qualche curioso possa avere libero accesso in programmi 
riservati. Archivio per Apple. Per avere un back-up dei programmi più 
importanti da dischetto a cassetta o viceversa. Discoteca. Una banca 
dati che tiene sotto controllo la collezione di longplaying e di cassette. 
Aiuto. Alla fine della battitura di un programma, Aiuto vi dirà quanti 
errori ci sono e a quali linee. Lire 30.000 (abbonati 25.000). 

APPLICANDO 8 

AP8/N13 Cambiacomandi/Messaggi. Un programma che insegna 
come personalizzare i messaggi propri del Dos dell'Apple. Le Mans. 
Un gran premio di formula uno da giocare in due o da soli contro il 
computer. Appleorgano. Una combinazione di linguaggio macchina e 
di Applesoft che trasforma l'Apple in un melodioso organo. Lire 30.000 
(abbonati 25.000). 

AP8/T14 Momento di una forza/Colpo all’asta. La dimostrazione 
didattica del ribaltamento di un corpo solido appoggiato a un piano 
quando viene applicata una forza orizzontale che supera il momento in 
senso opposto dovuto al peso. Hard copy pagine in alta risoluzione. 
Se la stampante risponde a determinati criteri di compatibilità, con 
questo programma si possono far miracoli. Lire 30.000 (abbonati 
25.000). 

APPLICANDO 9 

AP9/N15 Fuoco fatuo. Un appassionante adventure game con un 
persorso intricatissimo, mille trabocchetti, un troll e una principessa. 
Apple artista. Per destreggiarsi nella grafica ad alta risoluzione usan¬ 
do lo schermo come tavolozza e la tastiera come pennello. Data hello. 
Una semplice routine che permette di disporre di una clock card 
inizializzando i dischetti con giorno, mese e anno. Lire 25.000 (abbo¬ 
nati 20.000). 

AP9/T16 Sistema di forze parallele. Fissandone l’intensità e la posi¬ 
zione questo programma permette di visualizzare il centro di un siste¬ 
ma di forze sotto forma numerica e grafica. Traslazione e rotazione 
di una figura piana. Come far ruotare, traslare, rimpicciolire, ingrandi¬ 
re sul video una figura piana. Lire 30.000 (abbonati 25.000). 


APPLICANDO 10 

AP10/N14 Ripristino. Come ripristinare programmi persi per un’acci¬ 
dentale istruzione di New o di Fp. Disk Map. Un detective del Dos per 
scoprire dove e come vengono immagazzinati i dati analizzando la 
mappa dei bit occupati. Autonumber. Una routine per autonumerare 
automaticamente i programmi e allineare le linee con un ritorno carrel¬ 
lo in input. Lire 30.000 (abbonati 25.000). 

AP10/T17 Rette nel piano cartesiano. Come individuare in cinque 
modi diversi una coppia di rette in un piano cartesiano e avere visualiz¬ 
zate le equazioni relative ai valori assegnati. Statistica. Come analiz¬ 
zare la correlazione fra due fenomeni o due caratteri e l'indice o 
coefficiente di Bravais che ne effettua la misura. Lire 30.000 (abbonati 
25.000). 

APPLICANDO 11 

AP11/NI 8 Apple edicola. Una banca dati per avere sotto controllo un 
articolo, il suo numero di pagina, la rivista su cui è stato pubblicato. 
Disk Zap. Il programma indispensabile per il debugging di un dischetto 
che ne risolve la maggior parte dei problemi. Messaggi personali. 
Quando la persona non c’è, per lasciare un messaggio basta impo¬ 
starlo sulla tastiera. L'Apple farà il resto. Comparatore di programmi 
in basic. Una routine per risolvere dubbi sulle diverse versioni di uno 
stesso programma. Trappola per pochi. Un cacciatore contro tre 
animali feroci. Vince chi riesce a intrappolare senza essere intrappola¬ 
to. Lire 30.000 (abbonati 25.000). 

AP11 /TI 9 Espressioni. Come risolvere un piccolo dramma familiare 
con l’aiuto di un elaboratore personale. Lire 25.000 (abbonati 20.000). 


APPLICANDO 12-13 

API 2/N20 Bridge. Un programma in altissima risoluzione grafica che 
permette di imparare il bridge o di giocarlo contro il computer. Micro- 
cale. Un foglio elettronico di calcolo, spreadsheet, che mette a disposi¬ 
zione 20 righe per 20 colonne per un totale di 400 caselle da riempire 
come si vuole. Applesoft Line Editor. Una potente utility che permet¬ 
te l'editing dei programmi in Applesoft e aggiunge all'Apple un più 
ampio controllo del cursore. Lire 30.000 (abbonati 25.000). 

AP12/A21 Budget (occorre Appleworks). Un prospetto che con l'inse¬ 
rimento di dati mensili e di medie preventive calcola automaticamente 
le medie consuntive e i relativi saldi mensili e annui. Lire 15.000. 
AP12/A22 Budget (occorre Visicalc). Un prospetto che con l’inseri¬ 
mento di dati mensili e di medie preventive calcola automaticamente le 
medie consuntive e i relativi saldi mensili e annui. Lire 15.000. 

AP12/A23 Cinque modelli Spreadsheet, tre modelli data base, due 
modelli Word Processor. Versione per Appleworks, Due dischetti. Lire 
80.000 (abbonati 70.000). 

AP12/A24 Cinque modelli Spreadsheet. Versione per VISICALC. Lire 
40.000 (abbonati 35.000). 

AP12/T25 Animazione di una rotazione tridimensionale. Un esem¬ 
pio di come una rotazione tridimensionale permette di rappresentare 
gli oggetti proprio come li vediamo. Trasformazione da File a Data. 
Una utility per risolvere il problema di aggiungere a un programma 
preesistente delle istruzioni DATA ricavati da un altro file. Lire 25.000 
(abbonati 15.000). 

APPLICANDO 14 

AP14/N26 Golf. Un programma in altissima risoluzione grafica che 
permette di disegnare il proprio percorso di golf per poi giocarci a 
piacimento con gli amici. Autopiù. Con l'aiuto di questo programma 
non dimenticherete più gli appuntamenti fissi dedicati alla manutenzio¬ 
ne della vostra automobile. Lire 20.000. 

AP14/N27 Applebaby. Tre giochi didattici: il primo per imparare a 
contare in età prescolastica: il secondo per ripassare le tabelline; il 
terzo per esercitarsi nell'ortografìa. Lire 20.000. 

AP14/A28 Rimborso spese, (occorre Appleworks). Un prospetto che 
vi permette di preparare le vostre note spese automaticamente in 
cinque minuti. Lire 15.000. 

AP14/A29 Rimborso spese, (occorre VisiCalc). Un prospetto che vi 
permette di preparare le vostre note spese automaticamente in cinque 
minuti. Lire 15.000. 

AP14/T30 Frutteti. Un aiuto a risolvere uno dei più classici problemi di 
estimo. Instant Poster Voi scrivete con la tastiera del vostro Apple la 
frase che volete, e subito dalla stampante esce un poster formato 
gigante. Lire 15.000. 

APPLICANDO 15 

AP15/N31 Sintetizzatore di suoni. Con questo programma potete 
dotare i vostri lavori di una colonna sonora eccezionale; permette 
infatti la sintetizzazione dei suoni più diversi: dal canto dell'uccellino, 
alla mitragliatrice, da treno in corsa all aereo, e tantissimi altri, compre¬ 
sa la musica. Volano. Un gioco in alta risoluzione per due sfidanti. 
Illustratore. Un programma di grafica che offre la possibilità di realiz¬ 
zare ottimi disegni anche a chi non è troppo ferrato in materia. Auto¬ 
schermo. Crea in automatico videate di presentazione dei programmi 
inseriti in un dischetto; dall’aspetto molto professionale, evidenzia 
infatti i programmi con una barra luminosa comandabile con le frecce e 
fa partire il programma così evidenziato con un semplice Return. Lire 
30.000. 

Sintetizzatore - AP13/N31 | 

Una utility per creare adeguate colonne 
sonore nei vostri programmi. Nel dischetto 
sono già registrati: batteria laser, canti 
di uccelli, esplosioni, canto dei marine, ecc. I 
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AP15/A32 Computer cuisine. Un ricettario computerizzato sul quale 
memorizzare ingredienti e ricette a centinaia, eliminando così sia il 
fastidio di mille pezzetti di carta sparsi per i cassetti, sia il pericolo di 
perdersi preziose ricette. Con possibilità di stampa delle singole ricette 
e un menù completo dei migliori piatti creati da Gualtiero Marchesi, il 
più famoso cuoco d'Italia. Occorre scheda 80 colonne. Lire 20,000, 

AP15/T33 Euclide. Il massimo comun divisore e il minimo comune 
multiplo in un programma che ne permette l'immediata comprensione. 
Isomeri. Fa parte del più ampio progetto americano Seraphim, per lo 
studio della chimica. Lire 15.000. 

APPLICANDO 16 

AP16/N34 Dieta personalizzata. Con questo programma, un pratico 
sistema di Data Base nutrizionale, è possibile personalizzare, a se¬ 
conda della propria costituzione fisica e delle abitudini alimentari, una 
dieta bilanciata, a lungo o a breve termine. Il dischetto contiene un file 
dati di 400 cibi, la cui composizione è analizzata in calorie, proteine, 
grassi, vitamine, colesterolo. Lire 25.000. 

AP16/N35 Designer. Il concetto dei potenti e costosi programmi di 
CAD/CAM alla portata dell'Apple //, per fare del computer uno stru¬ 
mento per disegnare semiprofessionale. Il gioco dei pompieri. E' 
scoppiato un incendio, e voi siete un pompiere che deve salvare il 
maggior numero di persone prima che muoiano soffocate tra le fiam¬ 
me. Se sbagliate tre volte, sarete nei guai: il severo comandante... Per 
listare bene in vista. Programmare è divertente, creativo, affascinan¬ 
te. Ma talvolta bisogna tornare sul listato per correggere e modificare 
qualcosa. Allora può capitare di pentirsi di aver preferito la compattez¬ 
za alla chiarezza. A meno che non si faccia uso di questo programma. 
Timer. Un efficace programma per trasformare l'Apple // in un fedele e 
preciso contasecondi che avverte del passare del tempo, e al momen¬ 
to giusto... Lire 25.000. 

API 6/N36 Cento One-liner. Utilities, routines, dimostrativi di grafica e 
di suoni, e perfino giochi. Cento programmi su un solo dischetto, tutti 
rigorosamente scritti in una sola linea di Basic. Da usare così come 
sono, da studiare come esempi di sintesi, o da trasferire nei vostri 
programmi. Lire 25.000. 

AP16/N37 Rubrica telefonica. (Occorre AppleWorks). Un'agenda 
telefonica che individua in tempo reale qualunque numero memorizza¬ 
to, che stampa le etichette per spedire gli auguri di Natale e di Pasqua 
solo a chi volete voi, che seleziona, con molteplici possibilità, gruppi di 
nominativi e stampa elenchi su carta da distribuire aggiornati ogni 
mese ai collaboratori. Lire 15.000. 



APPLICANDO 17 

AP17/N38 Strade d’America. Pianifica un qualunque itinerario stra¬ 
dale americano tra ben 171 città diverse, fornendo le sigle delle strade 
da percorrere, l'elenco delle città intermedie e calcola la distanza in 
miglia dei tratti intermedi e la distanza totale dalla città di partenza a 


Strade d'America AP17/N38 

Per pianificare qualunque Itinerario 
all'Interno degli Stati Uniti. 
Potete scegliere fra 171 città diverse. 


quella d'arrivo. Uragano. Su una piccola città indifesa una tempesta si 
abbatte implacabile: distruggerà tutte le case e ucciderà ogni abitante, 
in un crescendo di violenza incontrastabile. Un rifugio ci sarebbe, ma 
come raggiungerlo? Non c'è proprio speranza. A meno che... Gioco ad 
altissima risoluzione grafica. Lire 30.000. 

AP17/N39 Regress. Ideale per manipolare dati con funzioni statisti¬ 
che, questo programma è destinato soprattutto a chi ha bisogno di uno 
strumento veloce per eseguire analisi di carattere statistico, con la 
conseguente possibilità di chiedere previsioni in base all’andamento 
delle regressioni sui dati inseriti. Calcolatrice RPN. Con questo pro¬ 
gramma. l’Apple diventa una sofisticata calcolatrice che impiega per 
l'input la notazione polacca inversa, con una catasta operativa di 
quattro registri, e permette calcoli complessi. Sparate a vista. Siete 
appostati contro un muro e comandate un potente cannone atomico 
...ad aria. Dal cielo fluttuano oggetti non meglio identificati: alcuni 
lentamente, altri un po' meno. Voi, questi oggetti, dovete respingerli. 
Peccato, però, che dall'altra parte ci sia un avversario con un altro 
cannone... Lire 25.000. 




(Continua a pag. 98 ) 
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ThundapScan 


Il sistema grafico per il vostro mAC ! Facilissimo da 
usare vi permette di trasformare qualunque Immagine 
in un documento ad alta risoluzione macintosh Se 
avete, anche solo in parte, acquistato il IT1AC per le sue 
capacita' grafiche, non potete fare a meno di 
Th underScan Fotografie, disegni, mappe, piante 
topografiche, marchi, da originali a colori o in bianco e 
nero, possono essere riprodotti con la precisione di 200 
punti per pollice e con 32 tonalità' di grigio Andy 
Hertfeld, uno dei realizzatori del software di 
macintosh, ha reso questo strumento estremamente 
semplice e versatile nell'uso 
Si inserisce al posto della 
cartuccia del nastro nella 
vostra ImageWriter ed e' 
subito pronto a leggere 
qualunque immagine che 
potrete Ingrandire sino a 16 
volte o rimpicciolire a 1/16 

FAI mAC 512K 

Avete un mAC a 1 28K e volete portarlo a 51 2K ? 

Telefonateci, vi diremo come in pochi giorni e con poca 
spesa potrete finalmente usare tutto quel fantastico 
software che gira solo sul 512K Tel 0481/30909 


al nuovo prezzo di 
Lire 298 000 


Solo per A p ple Ile 

HtagSEiBitaia® ©4UE # 

Lire 140,000 


BdhlflB S®0 compatibile con il mouse Apple a 
Lire 148000 

sHagEfcitìk per Apple Ile ed Apple Ile Lire 52 000 
Per A p ple Ile 

©flEÈ étflws a Lire 480 000 

Per tutti ali A pple 

EHlaéiasS!jo)ÈJgBJ§ - E' un telefono amplificato ed un 
modem CCITT V 21 a 300 baud Auto/manual Answer, 
lTlanual Originate, Auto Disconnect Da connettersi in 
RS-232 C con il vostro computer L 320 000 

@“SFDD custodia plastica L. 48.000 
D Lire 100000 


Vendita per Corrispondenza Tutti i prezzi indicati 
comprendono PIVA nessuna spesa di spedizione per ordini 
superiori alle 50.000 Lire. Prezzi soggetti a variazioni 

ELCOm C so Italia 149 34 170 GORIZIA Tel 04B 1/30909 
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AP17/A40 I conti del negozio. (Occorre AppleWorks). Diviso in due 
file, simili per impostazione ma diversi per utilizzo, questo modello di 
Spreadsheet è utilissimo per seguire l'andamento giornaliero e mensi¬ 
le di un negozio. All'apertura del negozio coincide l’apertura di un 
foglio vuoto del modello: per ogni movimento di cassa è possibile 
memorizzare la causale, il tipo di pagamento e a cosa si riferisce. Il 
computer calcola i totali per ogni voce e indica quale è stato il movi¬ 
mento di cassa giornaliero, tenendo conto degli ordini e dei saldi per 
impegni precedenti. Un'ultima sezione elabora i dati suddivisi per 
categorie merceologiche e calcola le percentuali di ripartizione degli 
utili su ogni articolo. Lire 50.000. 

AP17/A41 I conti del negozio. (Occorre VisiCalc). Lo stesso di 
AP17/A40, ma con VisiCalc. Lire 50.000. 

APPLICANDO 18 

AP18/N41 Trivia. Stregherà milioni di italiani facendoli giocare, la 
novità che viene dall’America: si chiama Trivial Pursuit ed è destinato a 
diventare il gioco dell'anno. Per sperimentarlo in anteprima, Applican¬ 
do ne propone una versione per Apple //, per di più personalizzabile e 
quindi utile anche per studiare o ripassare, oltre che per divertirsi... 
Bioritmi. Ci sono giornate in cui conviene non uscire nemmeno di 
casa, perché va tutto storto; e ci sono giorni baciati dal destino in cui si 
naviga sull'olio. Sarebbe bello conoscerli in anticipo e organizzarsi 
meglio la vita. Con questo programma si può seguire l'andamento dei 
propri bioritmi: tutti e tre i cicli, mese per mese. Occhio ai consumi. 
Volete sapere quanto consuma la vostra auto? Potete annotare dili¬ 
gentemente la percorrenza e i litri di carburante e poi fare i relativi 
calcoli. Oppure, molto più semplicemente, caricare su Apple questo 
programma, utile per valutare anche altri tipi di consumi... Lire 25.000. 

AP19/N42 Regolatore del bip. Ci sono momenti in cui il //e, con tutti 
quei suoi bip, sembra ridere dei nostri errori. Che fare? Spegnerlo e 
uscire a fare due passi? Cambiarlo con il //c, che ha il volume regolabi¬ 
le? Mettersi i tappi nelle orecchie? No, la soluzione è un'altra, semplice 
e davvero simpatica .. e soprattutto funziona! Comparatore di grafici. 
Avere il grafico di una funzione può essere inutile se poi non si 
possono esaminare i particolari del suo andamento in una certa zona. 
Se poi si deve vedere la differenza tra due curve diverse c’è da fare un 
difficile e poco preciso lavoro di comparazione. A meno di non utilizza¬ 
re questo programma che. Impaginatore di messaggi. Per avere le 
scritte perfettamente centrate sia sul video che sulla stampante occor¬ 
re tanta pazienza e tanto occhio. Oppure avere in memoria questo 
impaginatore che, all'occorrenza, può servire anche da word proces¬ 
sor. Utility per ProDOS. Prefix, Subdirectory, Pathname? Sono 
termini che bisogna conoscere per programmare in ProDOS. Questa 
utility non solo aiuterà a capire e imparare con facilità, ma, soprattut¬ 
to... Lire 25.000. 

APPLICANDO 19 

API 9/N42 Oracolo. Comperare una casa? Cambiare lavoro? Conclu¬ 
dere o no quell’affare? Alcune scelte sono cosi importanti, legate a 



condizioni cosi complesse, che per decidere tra le alternative possibili, 
l'umana saggezza a volte non basta. Ci vogliono freddezza e distacco, 
per suddividere il problema nelle sue componenti allo scopo di analiz¬ 
zarle separatamente. Il primo programma di tipo decision maker di¬ 
sponibile in Italia. Digger. A differenza dei giochi di labirinto di tipo 
tradizionale, Digger vi chiede di risolvere dei rompicapi spaziali, e la 
prontezza di riflessi non è tra i fattori del gioco... I marziani, inoltre, non 
sono vostri nemici, anzi, i marziani siete voi... Claustrofobia. Non 
distruggete gli alieni, limitatevi a controllare che stiano tranquilli! Que¬ 
sto gioco in alta risoluzione, pacifista nei risultati, ma non nei metodi, 
mette alla prova l'abilità del giocatore, che deve schivare le bombe 
mentre spara contro gli alieni, per incolonnarli con ordine. Ma attenzio¬ 
ne che non vi incastrino, perché soffrite di claustrofobia... Gestione 
puntatori. Volete caricare in memoria un progamma in Applesoft al 
disopra di questo o quel codice in linguaggio macchina? Magari aggi¬ 
rando la memoria di schermo in alta risoluzione? O addirittura in cima a 
un codice ormai servito al suo scopo in un programma che sta giran¬ 
do? O annullare un FP battuto per errore? Con questo programma, 
tutto è possibile. Sei soluzioni. Il programma, proposto nell'ambito del 
Progetto Seraphim, è un test che consiste nel presentare allo studente 
quantità limitate di un certo numero di soluzioni in provette numerate. 
Lo studente conosce le sostanze presenti e deve, usando esclusiva- 
mente le soluzioni a disposizione, identificare il contenuto di ciascuna 
provetta. Lire 30.000. 

APPLICANDO 20 

AP20/N44 Salute. Purtroppo il medico di famiglia non esiste più (ma 
se ce n'è ancora qualcuno, sì affretti a usare questo programmai): 
vaccinazioni da un lato, malattie dall'altro, analisi, terapie e soprattutto 
costi a non finire. Come ricordare tutto, registrare e listare le spese 
mediche di tutti i familiari? E al momento di pagare le tasse, poi... 
Variabili. Volete caricare in memoria un programma in Applesoft al di 
sopra di questo o quel codice macchina? O addirittura in cima a un 
codice ormai servito al suo scopo in un programma che sta girando? 
Oppure... Grafica. Che cosa sono le figure a blocco? Perché è impor¬ 
tante farne la conoscenza? Per chi possiede l'Apple Ile o il Ile con 
scheda 80 colonne continua l'entusiasmante viaggio nel mondo del¬ 
l'altissima definizione. Impariamo in questo numero a duplicare sul 
video la piccola immagine di un'astronave aliena. Simulazione di un 
equilibrio. Eccoci alla terza puntata dedicata al progetto Seraphim. In 
questo numero un software didattico che crea la simulazione al com¬ 
puter di un problema di equilibrio. Lire 25.000. 

AP20/N45 Oroscopo. Dedicato soprattutto a chi agli oroscopi non 
crede, forse questo programma può riuscire a far cambiare loro idea... 
Scientificamente fondato, permette la creazione di una carta del cielo 
natale che nulla invidia ai grafici tracciati dai professionisti. E le tabelle 
con latitudini, longitudini, fusi orari eccetera? Ci sono, ci sono... Voce. 
Ora non gli manca più la parola: con questa routine in linguaggio 
macchina l'Apple può finalmente pronunciare tutto quello che volete. 
Cos'ha di diverso dagli altri programmi del genere? L'estrema sempli¬ 
cità, la totale trasparenza... L.30.000. 
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Fuji ha messo 
tecnologie del futuro 
nei floppy disks 


I nuovi floppy disks Fuji Heawy Duty assicurano 
una durata di oltre 20 milioni di passaggi, con 
tracce error-free al 100%. 

Innovativi per la struttura tridimensionale 
flessibile delle particelle magnetiche, 
la modulazione ridottissima, contenuta entro il 3%, 
il Super Hub Ring, parte integrante della 
struttura tridimensionale, e l’involucro resistente 
fino a 60°C, i floppy disks Fuji offrono oggi 
le tecnologie del futuro. 
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□ Tre programmi integrati in un unico pacchetto □ Tre volte meno caro, a parità di potenza 

□ Tre strumenti all’unisono □ Tre indiscutibili motivi per acquistarlo 



ARCHIVIO 


Schedario evoluto e veloce, per¬ 
sonalizzabile. Ricerche multichia- 
ve, sort, aggiornamenti numerici 
automatici, calcolatrice, stampe 
personalizzabili etc. 


GRAFICI 

Tre tipi di grafici: barre, linee, torta 
con personalizzazione di diciture, 
valori e scale 2 o 3 dimensioni. 
Stampe e comparazioni. 


TESTI 

Potentissimo editore di testi con 
righelli, taglia, copia, incolla, giusti¬ 
ficazioni e word-wrap. Passaggio 
dei testi all’archivio per un autenti¬ 
co mail-merge. 


Completamente in italiano - by HL software - Horizontal Line Software 
distribuito da EMS - via Dalmazia,2 - 27029 Vigevano -^tfìlS 
























